


100th Issue! 





ee SSS snnsnsseesestsnsssnnaanusissvne.mtsipuiesesecnemasnawmsmninncss 
SOFTWARE TOOLS FOR ADVANCED PROGRAMMERS 


- Dr.Dobb’s Journal 


#100 February 1985 $2.95 (3.50 Canada) 


' Festschrift for Doctor Dobb 








eas Tiny BASIC 
MO MUON 


ae Excerpts from 
Fire in the Valley 


— 


> 3 é J, . - “ in . 
{ ? 4 a ae ; Shotts . i. 
ip} | . f 43 ee - ma oh ie 3 
: 3 a | ¥ ¢ wi 


Ny 


3835116562 



















































, $999 


What a gift for you and your friends! The extraordinary TURBO 
PASCAL compiler, together with the exciting new TURBO TOOLBOX 
and new TURBO TUTOR. All 3 manuals with disks for $99.95. 


oe 
oe aw. TURBO PASCAL Version 2.0 (reg. $49.95). The now classic program 
o Rose xe development environment still includes the FREE MICROCALC 
a ee SPREAD SHEET. Commented source code on disk 
ws e Optional 8087 support available for a small additional charge 
oe NEW! TURBO TOOLBOX (reg. $49.95). A set of three funda- 


mental utilities that work in conjunction with TURBO PASCAL. 

Includes: 

8 ees FILES USING B+ TREES. Commented source code 
on disk 

¢ QUIKSORT ON DISK. Commented source code on disk 

e GINST (General Installation Program) 

Provides those programs written in TURBO PASCAL with a terminal 

installation module just like TURBO’S! 

e NOW INCLUDES FREE SAMPLE DATABASE 

NEW! TURBO TUTOR (reg. $29.95). Teaches step by step how to 

use the TURBO PASCAL development environment—an ideal 

introduction for basic programmers. Commented source code for all 

program examples on disk. 


30 DAY MONEY BACK GUARANTEE 
Available at your nearest software dealer. 
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j For VISA and MASTERCARD order call toll free: 
1-(800)-255-8008 1-(800)-742-1133 
) (Lines open 24 hrs., 7 days a week) ! 
Dealer and Distributor inquiries welcome (408) 438-8400 
CHOOSE ONE (please add $5.00 for handling and shipping U.S. orders) 
______ All Three-Gift Pack $ 99.95 + 5.00 SPECIAL! 
} All Three & 8087 139.95 + 5.00 SPECIAL! ; 
Turbo Pascal 2.0 49.95 + 5.00 
Turbo Toolbox 49.95 + 5.00 
:.. Turbo Tutor 29.95 + 5.00 
Turbo 8087 89.95 + 5.00 or 
{ Check _______ Money Order VISA MasterCard sic‘ 
\ Card #: Exp. date: Shipped UPS ! 
; My system is: 8 bit 16 bit | 
) Operating System: CP/M 80 CPIM 86 MS DOS PCDOS — 
i Computer: Disk Format: i 
Please be sure model number & format are correct. Sd 
Pj aS ie a NAME: \ AY 
sl ADDRESS: 
% ones CITY/STATE/ZIP: 
TePeONE rc rt—(“‘“ Ci™éOCOC™CSC*OCs*S*s*S*s*CsS 
California residents add 6% sales tax. Outside U.S.A. add $15.00 (if outside of i 
U.S.A. payment must be by bank draft payable in the U.S. and in U.S. dollars). 
Sorry. no C.O.D. or Purchase Orders. \ 
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4113 Scotts Valley Drive 
Scotts Valley, CA 95066 
TELEX: 172373 
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Whitesmiths sets yet another precedent 
with the first in a series of new portable standard C Compilers: 


C for the 8086 family 


Features: 


® Includes Pascal which conforms to full ISO (level 1) 
standard, plus popular extensions and long 
identifiers 

e C now has struct assignment, enumerations, plus 
other popular features and long identifiers 


® Supports all memory models from small to large, 
plus mixed pointer sizes and segment overrides 


Circle no. 114 on reader service card. 


® Source level portable debugger included 


® Generates assembler listings with intermixed source 
code 


® Multi-segment linker with direct or sequential 
libraries, plus librarian, assembler, and other object 
tools included 


® Source code of system interface library included 


@ Library use fees included in purchase price 





Whitesmiths, Ltd. © 97 Lowell Road # Concord, MA 01742 ¢ 617-369-8499 ¢ Telex 750246 








ALL AI ONCE! 


AND NEVER A “LOCKED OUT” USER! 


Apex Tate lO kyaa (stom Ol Ut) Colgut-) am BT-1-) 


Customer Id: Acme 

Customer Name: Acme !ndustries 

Credit Rating: AA Credit Limit: 25000 
Current Balance: 12500 
30 Day Balance: 4000 
108 BF \VM = F-11- Lalo 1500 


90 Day Balance: ) 


Billing: 
Address: 2701 South Bayshore Drive 
City: Miami State: FL Zip: 33133 

Shipping: 7 
Address: 913 Majorca Avenue 
or] aYem Oxo) ¢-1 MCT-|0)(-t-Mamib~) (| (al gs Oa | oR 
Phone: 305-856-7503 Contact: Gerald Green 


DataFlex is the only application development __ takes to actually write it to the file! The updated 
database which automatically gives you true record is then immediately available. The 
multi-user capabilities. Other systems can lock number of users who can access, and change, 
you out of records or entire files for the full records at the same time is limited only by 
time they are being used by someone else. the number of terminals on your system or 
DataFlex, however, locks only the data being network. Call or write today for all the details 
changed, and only during the micro-seconds it on DataFlex...the true multi-user database. 


ATA 


DATA ACCESS CORPORATION 
8525 SW 129 Terrace, Miami, FL 33156 (305) 238-0012 
Telex 469021 DATA ACCESS Cl 
See us at Comdex Booth 3349 


Compatible with CP/M-80, MSDOS networks, MP/M-86, Novell Sharen i i 
: { -86, et, PC-Net, DMS Hi-net, TurboDOS multi- 
N-Star, Televideo MmmOST, Action DPC/OS, IBM PC w/Corvus, OMNINET, 3Com EtherSeries and of Plating ya aed 


MSDOS is a trademark of Microsoft. CP/M and MP/M are trademarks of Digital Research. 


Circle no. 29 on reader service card. 
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Imagine 
dBASE II™ 
running up 
COMPAR LLL 
AGP 


INA 


for Clipper 


has arrwed. 








Time is your most 
valuable commodity. 
Because how you - 
Spend your time, is how 
you live your life. 

At Nantucket, we 
Yel eA Vom OU MSINLOLULO MINS 
NiMCOM UTM IU sie 

Clipper, the first true 
compiler for dBASE 
Il is a timely exam- 
ple. Now, dBASE com: 
piled by Clipper runs 2 
OPAC MULL 
dBASE with its stan- 
dard interpreter. 
AWeloyAtelem lil (cig e)icilc1s 
painstakingly checks 
and executes your 


a time, every time you 
run a program. With 
Clipper, once you've 
debugged your source 
code, it's compiled into 
more efficient machine 
code. Your program 
runs without the time- 
consuming overhead of 
redundant translation. 
Clipper compiles all 
your existing and future 
dBASE III programs. 


lipper introduces you to time of your life. 


Developing a com: Then go make the 


_piler for dBASE Ill was = most of your life time. 


just a matter of time. 
Call your dealer or our 
toll free 800 number 
and ask for Clipper. 


Li 


source code one line at NATBILE Ce <a 


20456 Patific Coast Hwy,, Malibu, Ca. 90265 (800) 556-1234 ext. 225. In California (800) 441-2345 ext. 225 


Cicic ao. BG an cader cervice card: dBASE Ill is a registered trademark of Ashton Tate 
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In This Issue 


For this 100th issue of DDJ, Mike Swaine interviewed the men whose names 
became the Doctor’s: Dennis Allison and Bob Albrecht. Dennis is in “Software 
Designer” and Bob is in “Festschrift.” To meet Bob and Dennis is to understand 
why the “temporary” project they started almost a decade ago is still gathering 
momentum. Bob and Dennis are visionary, and powerful. Suzanne Rodriguez’ 
contribution to the “‘Festchrift” provides an interesting glimpse of the way things 
were at People’s Computer Company under Bob and Dennis’ leadership. Ex- 
cerpts from Fire in the Valley provide a wider context for what was happening. 
We couldn’t resist dropping in Gordon Brandly’s “‘Tiny BASIC for the 68000” to 
link our roots with the state of the art. 

The inclusion of Charles Burton’s “An Enhanced ADFGVX Cipher System” 
reflects a philosophy that has continued from an early People’s Computer Com- 
pany poster: “Use computers for people, not against them.” The power to encrypt 
one’s communications, once the domain of high government and the military, has 
now been placed in the hands of the people. Since 1976, we have enjoyed taking 
what is secret, hidden, expensive, protected, or otherwise inaccessible, and plac- 
ing it in the public domain. 


This Months Cover 


This months cover was created by Tom Upton. The photograph shows bubbles 
with sparks reflecting and old DDJ cover. 


Next Month 


The March issue will announce the winner(s) of the AI programming competi- 
tion. The issue is shaping up to be quite Prolog oriented. We would really like to 
work up a public domain Prolog for micros. Contributions? In the ‘“‘Realizable 
Fantasies” column next month you will read of a proposed project to write a 
complete public domain Unix, called GNU (acronym for ““GNU’s Not Unix’). In 
the same vein, the author of the grep.c program that we published in October 
1984, Allen Holub, will pick up where Anthony Skjellum left off and become our 
new C columnist. We are pleased to announce that the C column will now run 
every month. 


This Month’s Referees 


Dave Cortesi, Resident Intern John Taber, IBM 
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EDITORIAL 





my personal thank-you to some of the people who created DDJ over the 
past hundred issues. I’ve left out many people through oversight, but here 
are well over a hundred. 


B efore they put me on the payroll here, I was a loyal reader of DDJ. This is 


Thank you, 


Phyllis Adams, Bob Albrecht, Dennis Allison, Robin Allison, Walter Andrze- 
jewski, Julie Anton, Jean Aring, John Arnold, 

Rick Bakalinsky, Stephanie Barber, Jeannie Barroga, Sam Bassett, Anatta 
Blackmarr, Beatrice Blatteis, Robert Blum, Christine Botelho, Lisa Boudreau, 
Kathleen Boyd, Sally Brenton, Bill Bruneau, 

Ron Cain, Dave Caulkins, Ward Christensen, Maureen Christine, Peter Clark, 
Dave Cortesi, Gavin Cullen, Carole Cullenbine, 

Leah Dansby, Jim Day, Frank DeRose, Shelley Rae Doeden, Steve Dompier, 
Beth Dudas, Ray Duncan, 

Gordon Eubanks, 

Paula Fairchild, Fred Fehlau, Lee Felsenstein, Eugene Fisher, Laird Foshay, 
Stephen Friedman, 

Mike Gabrielson, Bill Gale, Gary Gaugler, Mag Glick, Greg Gordon, H.T. Gor- 
don, FJ. Greeb, Richard Grigonis, Ed Gueble, 

Aleeca Hamilton, Craig Harper, David C. Harris, Kim Harris, Hank Harrison, 
Gene Head, Michael Heatherman, Matthew Heiler, Jim Hendrix, Andy Hertz- 
feld, Nancy Heubach, Alice Hinton, Susan Hinton, Tita Hinton, Willard Hold- 
en, Allen Holub, Shawn Horst, Alana Hunter, 

Meredith Ittner, 

Bob Jacobsen, John S. James, Mark Johnson, Do-While Jones, 

Laura Kares, Maria Kent, Gary Kildall, Art Kleiner, Polly Koch, Cynthia Ko- 
sina, Craig LaGrow, Jane Laidley, Carl Landeau, Fritzi Lareau, J.L. Lawrence, 
Michael Madaj, Rosehips Malloy, Linda Marohn, Cindy Martin, Tom Martin, 
Terri Marty, W.D. Maurer, Dwight McCabe, Al McCahon, Dennis McGhie, 
Jane McKean, Lorraine McLaughlin, Mary Jo McPhee, Laura Mendell, Ann 
Merchenberger, Doug Millison, Alison Milne, Ann Miya, Michelle Moonstone, 
Carl Moser, Erik Mueller, Andrea Nasher, 

Theresa O’Rourke, Marlin Ouverson, 

Sahnta Pannuti, Ronald Parsons, Janet Payne, Detta Penna, Giuliana Peter, 
Tom Pittman, Terri Pond, Beverly Pyle, 

Bill Ragsdale, Jef Raskin, Ed Ream, Pete Roberts, Beverly Robinson, Suzanne 
Rodriguez, Betsy Roeth, Gloria Romanoff, Dan Rosset, Barbara Ruzgerian, 
Barbara Rymsa, 

Jonathan Sachs, Kent Safford, Carol Sevilla, Jane Sharninghouse, Anthony 
Skjellum, Maureen Snee, John Starkweather, Susan Strange, Robert Suding, 
Randy Sutherland, 

Ari Taylor, Frank Trujillo, Marianne Tryens, Margaret Tsai, 

Lichen Wang, Jim Warren, Judith Wasserman, Sara Werry, Ann West, Clifford 
West, Charles Wetherell, Dick Whipple, Michael Wiesenberg, Renny Wiggins, 
Tom Williams, Steve Willoughby, Marvin Wizenread, Donna Lee Wood, Steve 
Wozniak, 

Greg Yob 

and Michael Zick. 





Michael Swaine 
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Finally, a 
programmable 
multi-window 
editor for 
MS-DOS. 


EMACS 


UniPress EMACS™ 
Famed Gosling version. Multi-window, text editor with exten- 
sibility through the built-in MLISP programming language and 
macros. Dozens of source code MLISP functions; including C, 
Pascal and MLISP syntax checking. Run Lattice C or PsMake in 
the background and Emacs will point to any errors. EMACS now 
runs on TI-PC, IBM-PC AT, DEC RAINBOW or any MS-DOS machine. 


PsMake 

UNIX™ style ‘make’ utility, includes facilities for automatically 
rebuilding programs based on inter-dependencies of the modules. 
Includes rule scripts for many popular MS-DOS languages. Also 
includes many UNIX style tools (Is, cat, touch, etc). 


Lattice C 

‘The’ C compiler for the serious developer. Full C language 
producing the best code for the 8086 family. All models of 8086 
supported. Emacs, PsMake, and Phact all written using Lattice. 


Phact Isam 

Multi-key ISAM for MS-DOS. Uses b + tree, and supports variable 
length records. Includes full Lattice linkable library and high-level 
functions. 


Carousel Tools — UNIX-like facilities 

Set of over 50 programs, utilities and software tools that aid in 
general file handling, searching and manipulating character data, 
and writing programs and documents. 


FULL SYSTEM [includes Emacs (object), PsMake, Phact Isam, 
Lattice C & Carousel Tools]— $1,299. STANDALONE: EMACS $475, 
source — Call for terms. Lattice C $425. PHACT $250. PSMAKE $179. 
CAROUSEL TOOLS $149. One month EMACS trial $75. 


UniPress is a major publisher of Unix Software. 


Call or write for more information. 


UniPress Software, Inc. 


2025 Lincoln Highway, Edison, NJ 08817 

201-985-8000 e Order Desk: 800-222-0550 (outside NJ) 

Telex: 709418 e Mastercard and Visa 

Japanese Distributor: SofTec, Telephone: 0480 (85) 6565 
European Distributor: Modulator SA, Telephone: (031) 59 22 22 


Hackers, rejoice! 





Lattice is a registered trademark of Lattice, Inc. UniPress Emacs and MLISP are trademarks of UniPress 
Software, Inc. VMS is a trademark of Digital Equipment Corp. MS-DOS is a trademark of Microsoft. Unix is 


a trademark of Bell Laboratories. Carousel Tools is a trademark of Carousel MicroTools Inc. 











LFI TERS 


Minimax Exchange 
Algorithm 


Dear Sir: 

I was very interested in the Minimax 
algorithm presented by Steven A. Ru- 
zinsky in DDJ No. 93 (July 1984). He 
presented several approximations that 
were better than the generally pub- 
lished series. Seeing this, I was in- 
spired to program a form of the ex- 
change algorithm and compare my 
results with his. Given the work that 
obviously went into his approach, I was 
surprised that even his results could be 
improved upon. In particular, for sin 
(pi*x/2) approximated by a 5-term 
series, Ruzinsky gave a maximum 
relative error of 5.31748E-09. My ex- 
change algorithm gave a maximum 
relative error of 5.31399E-09. While 
this difference is so small as to be al- 
most trivial, I believe it points up a log- 
ical error in Ruzinsky’s approach. 

To understand this error one must 
first realize that for an Lo approxima- 
tion with N parameters, the approxi- 
mation is guaranteed to reach its maxi- 
mum error at least N + 1 times. 
Ruzinsky’s algorithm tries to find these 
N + 1 or more places by giving ever- 
increasing weights to predetermined 
points near the actual maximum error 
positions, but, of course, these points 
are virtually never in the right positions 
for a true L.. approximation. 

The exchange method, on the other 
hand, is directed toward finding these 
N + 1 points and building an approxi- 
mation around them. When it works, it 
works best, but it appears to be far 
more finicky than Ruzinsky’s 
algorithm. 

In fact, Ruzinsky actually underes- 
timates the maximum error of his ap- 
proximations because the maximum 
error of his approximations does not 
occur at his lattice points, but some- 
where in between. 


In light of all this I propose the fol- 
lowing modification of Ruzinsky’s al- 
gorithm: after the Speedup step, which 
halves the number of lattice points, 
add new lattice points midway between 
each of the remaining points. This has 
the effect of increasing the lattice den- 
sity near the maximum error and, I ex- 
pect, will give the. correct Lo 
approximation. 

A few technical notes: GW BASIC on 
the Eagle PC that I used, like most Mi- 
crosoft BASIC interpreters, does not 
support double precision transcenden- 
tals, so my first order of business was 
implementing sin(p* x/2) in double pre- 


cision. This is not too bad if you don’t 


care much about speed. Also the coeffi- 
cients I got for Figure 8, page 94, are: 


A(0) = 1.570796318447697 

A(1) = —0.6459637105998668 
A(2) = 0.0796896789479709 
A(3) = —4.67376661266352E—03 
A(4) = 1.514851308552791E—04 


I also tried arctan(x) and again 
found a small improvement on Ru- 
zinsky’s result. 

Finally, I would be interested in how 
Mr. Ruzinsky linearized his various 
functions. Perhaps the contest he men- 
tioned (for a free one-year subscription 
to DDJ) could be ended. 

Sincerely, 

Allen E. Tracht 

12469 Cedar Rd., #11 
Cleveland Heights, OH 
44106 


Forth Standards 


Dear Editor: 

As a Forth vendor, I must take issue 
with your September 1984 article by 
Ray Duncan and Martin Tracy, “The 
FVG Standard Floating-Point Exten- 
sion.” I would like to point out that the 
document discussed in the article was 





based on the input of about eight ven- 
dors (including the authors). Most of 
these vendors do not produce floating- 
point applications systems. In fact, 
those of us who use the pre-existing 
Mountain View Press Floating-Point 
Standard were quite shocked to see 
this material in print. My own compa- 
ny has a mature floating-point system 
with utilities, matrix math, and FFTs, 
which has been available for over two 
years and was purchased by Martin 
Tracy of Micromotion about a year 
ago. This new “standard” bears little 
resemblance to the working standard 
that has come out of the experience of 
several years of real applications pro- 
gramming with floating-point Forth 
by those at ForthKit, Redshift Limit- 
ed, and Mountain View Press. 

In a recent editorial [October 1984] 
you commented that the FVG Stan- 
dard showed that Forth was maturing 
and was no longer a language in flux. 
This conclusion is certainly inaccurate. 

Micromotion and Creative Solu- 
tions (among others) were invited over 
a year ago to participate in a formal 
standards effort sponsored by Moun- 
tain View Press. They declined to par- 
ticipate. Through a great deal of work, 
those companies that did contribute 
developed a solid, mature standard. 
The programming systems based on 
our standard have received a great deal 
of use in laboratories and schools 
around the world; we consider them to 
have passed the test of time. 

Something also needs to be said 
about the use of separate floating-point 
stacks. The FVG document claims that 
applications adhering to the names and 
functions of the “standard” will be 
transportable among the various float- 
ing-point implementations. Unfortu- 
nately, this is not the case. The para- 
graph on ficating-point stacks says that 
the document does not concern itself 
with the issue of separate stacks. The 
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document states that on systems with a 
separate floating-point stack the source 
or destination of a real number argu- 
ment is the floating-point stack. These 
statements seem to ignore the fact that 
programs written for a separate stack 
will not transport to a system that uses 
the parameter stack for floating-point 
numbers and vice versa. 

A separate floating-point stack is 
necessary for efficient coding of com- 
plex algorithms. I used a parameter 
stack-based system for a year before 
switching to a separate floating-point 
stack in 1981, and I was amazed to see 
all my code simplify. But converting 
from one system to the other is a te- 
dious process and involves rethinking 
and rewriting all the code—this can 
hardly be called transportable! The 
Mountain View Press Standard speci- 
fies a separate stack to aid transport- 
ability, although it is our feeling that 
floating-point applications cannot be 
absolutely portable, due to the differ- 
ences in hardware and software num- 
ber packages. 

I feel that Ray Duncan has per- 
formed a disservice to the Forth com- 
munity by publishing this confusing 
document and further clouding the 
floating-point standards issue. 

Sincerely, 

Charlie Springer 
Redshift Limited 
417 Forest Ave. 

Palo Alto, CA 94301 


Forth Compiler Changes 


Dear Editor, 
In my article “A Forth Native-Code 
Cross Compiler for the MC68000”’ 
(September 84) there are a couple of 
errors that should be corrected. I have 
also done some additional work that 
should make the compiler more 
portable. 

On page 71 (second column, first 
paragraph) the sentence: 


Each time 2* is called, the code 
implementing it is sorted in the 
host dictionary, and the dictionary 
pointer is updated. 


should read: 


Each time 2* is called, the code 
implementing it is stored in the 
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Are You In 
X/£ZL Vet? 


The Ultimate Programmer's Editor 


Some folks have already discovered it. And they threw their other 
editors away! Why? Because XTC is incredibly powerful. It’s also 
easy to learn, and easy to use. XTC has MORE editing 

facilities for LESS MONEY — 99 bucks 
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MULTITASKING ~ dependently in the 


! ; ile you 

hae in the tg as separate processes while Y 

Cc one 
continu oa STRUCTURES — We've 0) 
CONTR. including os ELSE, 
REPEAL, be ore pe = Your macros noe a 
EDITOR Vr ables to do just SOS. ing. 
Er at NTEGERS, BOO 

ou 7 
Se ut Pee More than you \l ever 
eae a need — 20 in fact. 


’ 
(Ie 4 


These windows are 
really great! You can 
see several files at 
once — even different 
parts of the same file. 
That means you've got 
declarations in front of 
you while you're look- 
ing at the code that 











INTRODUCTORY OFFER 


Want to compare XTC with your editor? 
Just ask for our demo disk (only $5.00) 
and try it out. When you buy XTC, we'll 

knock five bucks off the price. 







uses them! 
XTC outperforms any other program- Is XTC protected? Heck 
mable editor on all IBM /PC, /XT, and /AT no! We even give you 
computers (and true compatibles). XTC the source on a disk for 
even works with your Sidekick and Turbo your recreation — 
Pascal from Borland! 7,000 lines of Pascal! 


To get your copy of XTC now, order fal ae 
it over the phone — we can ship it . a 
the same day! Or, you can send in © VA LAL) ay 


an order, just like this one: 








XTC ......... 99 bucks Box 266 + Cheney, WA 99004 + USA = (509) 235-8088 
x e ; ° e = 

Shipping and Insurance ..... 3.50 

Wash. FESO tax: Fs ee 7.99 Sidekick and Turbo Pascal are trademarks of 

Want it COD? Add this 1 65 Borland, International. Wordstar is a trademark of 


MicroPro. Wendin and XTC are trademarks of Wen- 


TOTAL IT UR AND SENDIT QUICK! din, Inc, 
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host dictionary, and the dictionary 
pointer is updated. 


On page 75 under “Final Comments” 
the sentence: 


This word should reset all of the 
compiler variables in screen 9 to 
their original style and generate 
an appropriate header to permit 
the operating system to load and 
execute the module. 


should read: 


This word should reset all of the 
compiler variables in screen 9 to 
their original values and generate 
an appropriate header to permit 
the operating system to load and 
execute the module. 


I have used the compiler on a Forth- 
83 system (F83 model by Laxen and 
Perry) with very few changes. The fol- 
lowing is a list of the changes that need 
to be made: 


1. Change the variable initialization 
in screens 9 and 10 to conform to 
the Forth-83 standard. 

2. Change the definition of the word 
HIGH-BYTE on screen 12 to the 
following. 

- HIGH-BYTE FLIP ; ( FLIP is not 
Forth-83 standard, for F83 only. ) 

3. Change the word <BUILDS on 
screens 14 and 17 to CREATE or 
use the definition of <BUILDS giv- 
en in screen 44 line 10. 

4. Delete the word HERE from the 
definition of BYTES on screen 21. 

5. Delete the word ;S from screens 24, 
33, and 43. (Not all systems sup- 
port this word and it is not 
required. ) 

6. Change the phrase A BYTES to 0A 
BYTES in the following places (the 
word A is used in the F83 model to 
select the alternate screen): screen 
35 line 8, screen 36 line 2, screen 37 
line 6, and screen 42 line 7. 

7. Change all of the uses of the word 
ENDIF to THEN or use the defini- 
tion of ENDIF given in screen 44 
line 2. 


The following is a better implemen- 
tation of the word BYTES that appears 
in screen 21. This word now saves the 


10 


current base and always uses HEX no- 
tation. Note that this word now uses 
the Forth-83 standard definition of 
WORD, so older systems will have to 
add the word HERE following WORD 
just as in the original. 


‘BYTES 
BASE @ >R HEX 
0 DO BL WORD NUMBER DROP 
C, LOOP 
R> BASE!; 


The following is one possible method 
of implementing the word M680UT in 
screen 18. This version saves the output 
code in an unused portion of memory. 
This block of memory can then be saved 
on disk or transferred in some other 
manner to the 68000 target machine. If 
you happen to be using the compiler on 
a 68000 system, you could execute the 
code directly from the host system. 


M68K DEFINITIONS 


( Pointer to current location in output 
buffer area of memory ) 
VARIABLE $M680UT 


( Store byte in output buffer area of 
memory ) 
-: M680UT ( b -- ) 
$M680UT @ C! 1 $M680UT +!; 


The following code should be modi- 
fied according to your needs and 
should be loaded after the rest of the 
cross compiler code. 


( Start of output buffer space ) 
FORTH DECIMAL 

HERE 10000 + 

M68K DEFINITIONS 
CONSTANT ($M680UT) 


( Initialize output buffer pointer ) 
($M680UT) $M680UT FORTH ! 


That sums up the changes I have 
made to the compiler. I am using the 
68000 version of F83, which has Mi- 
chael Perry’s assembler built in. The as- 
sembler works just fine in conjunction 
with my cross compiler so people who 
want an assembler built into the com- 
piler should take a look at the Septem- 
ber 1983 issue of Dr. Dobb’s Journal. 

Sincerely, 
Raymond L. Buvel 
Box 3071 


Moscow, ID 83843 
Debugging Tool 


To the Editors of Dr. Dobb’s Journal, 
A few weeks ago, I stumbled onto a tool 
that has greatly improved my debug- 
ging time. I primarily use Turbo Pascal 
and Forth in software development, and — 
when a program crashes, I spend much 
of my time figuring out where it 
crashed, and why. I have evolved the 
code in the accompanying source listing 
[see Listing, page 12] to solve these 
problems. The necessary code to make 
an error trapping route is included. 

The basic data structure is a stack of 
strings called place. The stack pointer 
is named place_ptr, and the stack 
depth is called place—depth, which is a 
constant. 

To initialize the stack, call the pro- 
cedure starting. At every level of invo- 
cation, such as the beginning of a pro- 
cedure, function, or loop, call entering 
with the name of the place you are 
tracking. Upon exiting the procedure, 
function, or loop, invoke /eaving. At 
the end of the section of the program 
you are tracking, call ending. 

Let’s consider the error handler. 
This procedure is passed a string of any 
acceptable length by its calling proce- 
dure, which is assumed to be an error 
message. After displaying the error 
message, which may be optionally 
printed on a printer, the place stack 
can be dumped either to the screen, the 
printer, or both. This indicates to any 
desired level of precision where in the 
program things went wrong and the in- 
vocation path as to how the program 
got there. It is then possible to type 
control-C and abort the program. 

There are two innate errors that 
these procedures can trigger: stack un- 
derflow and stack overflow. The first 
problem is caused by invoking /eaving 
more places than entering. This prob- 
lem is detected by the procedure /eav- 
ing, and the place stack as is will pro- 
vide no useful information, because the 
place stack has been depleted prema- 
turely. I find that the most common 
cause for this is placing entering before 
the loop starts and /eaving in the loop. 
For example, 
begin 

entering(‘loop_test’ ); 

for i:=1 to 10 do 
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begin 
do_some_stuff; 
leaving(‘loop_test’); 
end: 
end; 
is an example of this kind of mistake. 
The place array still has the name 
/oop_test in its first cell. By setting the 
place_ptr to place_depth, the dump- 
ing of the place stack will provide vital 
clues as to where the underflow 
occurred. 

The second problem, stack overflow, 
is essentially the reverse situation: 
there were more invocations of enter- 
ing than leaving. This problem can be 
detected two different ways, either 
while attempting to use entering or 
when ending has been invoked. In ei- 
ther case, the place stack dump will 
provide useful insights into what has 
been going on. When ending is encoun- 
tered, the place stack should be empty; 
it if isn’t, then there have been more 
invocations of entering than leaving, 
which indicates some fundamental 
failure of structuring in the program or 
in the placement of the entering and 
leaving invocations. 

Earle Jennings 

Director of R&D 
Incremental Computing 
Corp. 

P.O. Box 2875 

Santa Clara, CA 95055 


DD] 


(Listing begins on next page) 


C Programmers 


B-Trees 


For 


°75.°° 
@ +2.00 Postage 


Source Code Included 

The Softfocus B-Trees record index- 

ing library will help you develop 

sophisticated application programs. 

With Softfocus B-Trees you get: 

@ high speed file handling for up 
to 16.7 million records per file 

e customizable BDS or K&R 
standard C source code 

@ no royalties on applications 
orograms 

@ support random and sequential 
file access 

@ includes example programs 

Softfocus 
1277 Pallatine Dr., Oakville, Ont. 
Canada L6H 121 (416) 844-2610 s_—- 
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Use Pmate™ once, and you'll 
never go back to an ordinary 
text editor again. Pmate is more 
than a powerful programmer's 
text processor. It’s an inter- 
pretive language especially 
designed for customizing text 
processing and editing. 

Just like other powerful edi- 
tors, Pmate* features full-screen 
single-key editing, automatic 
disk buffering, ten auxiliary 
buffers, horizontal and vertical 
scrolling, plus a ‘garbage 
stack’’ buffer for retrieval of 
deleted strings. But, that’s just 
for openers. 

What really separates Pmate 
from the rest is macro magic. A 
built-in macro language with 
over 120 commands and single- 
keystroke “‘Instant Commands’’ 
to handle multiple command 


Most Program Editors 
Are Shockingly Primitive. 





sequences. So powerful, you 
can ‘customize’ keyboard 
and command structure to 
match your exact needs. 

Get automatic comments on 
code. Delete comments. Check 
syntax. Translate code from 
one language to another. Set 
up menus. Help screens. You 
name it. 

And, Pmate has its own set 
of variables, if-then statements, 
iterative loops, numeric calcu- 
lations, a hex to decimal and 
decimal to hex mode, binary 
conversion, and a trace mode. 
You can even build your own 
application program right 
inside your text processor. 

So, why work with primitive 
tools any longer than you have 
to? Pmate by Phoenix. $225. 
Call (800) 344-7200, or write. 


Phoeni7e 


Phoenix Computer Products Corporation 
1416 Providence Highway, Suite 220 


Norwood, MA 02062 


In Massachusetts (617) 762-5030 


*Pmate is designed for microcomputers using the Intel 8086 family of 
processors, and running MS-DOS" A custom version is available for 
the IBM PC, TI Professional, Wang Professional, DEC Rainbow, 
and Z80 running under CP/M™ 


Pmate is a trademark of Phoenix Software Associates Ltd. 
MS-DOS is a trademark of Microsoft Corporation. CP/M is a trademark of Digital Research, Inc. 
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Letters Listing (Text begins on page 8) 


LHRH MHMHH KEKE KEK K EKER ERK KEKE KKH KK KR RHE REE REEEE 


H¥ 

%% Diagnostic tools in TURBO FASCAL 

% % by Earle Jennings 10/21/84 

¥¥ 

He HEHEHE HEE EE HEHE TE FE SESE ESE BE BEE SE HE SEE FE SE SE HE SE TE EE HE SE EE HE EE SEE HE ESE HE HEE 9 
CONST 


nena of names stored on the place stacks 
the depth of the place stack + 


name leangth=24,5 
place depth=30; 
YEE 
name=stringlname length; 
{ name is a string of name length chars ma: 
anystring=stringl foal; 
VAR 
place ptriinteger; 
Dlace:arraylO .. place depth] of name; 
£ This is the place stack that provides our travel Loc? 
LH HK HK KKK KH EME EME KEE EKER EER EEE KKK E REE ERE KEK KKAEKAE ES 
** right _pad( Its _name,name_ length ? 
eK HH HE HE EE EEK HE EE EEK EEK EEE EERE EHH EERE KEE KEERER ERE ES 
function right _pad(Its name:anystring; name _ Jength:integer dJranystring; 
VAR isrinteger; 
tempsanystrings 
begin 
temp:=Ilts name; 
if length(Its name)tname length then 
for i:=length(lts name)+1 to name length do teamps=concat (temp, 5 
right _pad:=temp,; 
ends; { of right _pad:+: 


adel A aller 


os 
ut 
y 


LRH KH KKH HHH HE HEE HEH HEHEHE EH EEE HEE EERE EHH EEK EHH EE 
**® dump place stack (target:itext); 1O/20/84 


FH HEHE HOE ETE SE FE HEHE ETE HE SE SE DEE SEE SESE FEE SEE EE ESE SEE HEE EEE FE EE EEE EE HE 
procedure dump place stack (VAR tarqetitext? 5 
VAR isinteger; 
begin 
writeln(target, ‘our present location ist )45 
if place ptre-1l then 
for i:=place ptr dawnto O do 
begin 
write (target.,right pad(placelild,name_ Pendtny ¢o5 9% 
pe. tC Blagpe ote ide mod>: 27). Orne weiteln(target) ; 
enc; 
ends { of dump place stack 3 
LH HHH K HEHEHE EK EK HHH HEHE KEKE IRR EE EE ER ERE ERE 


? 


** dump places 10/20/84 
ee ee re ar ne re ee ree 
procedure dump places 

VAR itrinteger; 

begin 


Writeln( dump place stack-tos-isert, 2-Ip,.s-both, else skip’) s 
readiln¢it? ; 
case it of 
1s dump place _ stack (can? ; 
2: dump place stack (lst), 
of begin 


dump place stack (com) ; 
dump place stack(lst) ; 
end; 
else 


ends 
(Continued on page 14) 
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100% FLAWLESS 
COPIES... 


... FAST! 


No need to tie up your valuable computer to duplicate 
diskettes .. . when VICTORY can provide you with a 
duplicator that will do the job flawlessly, and much 
faster. One button operation automatically formats, 
duplicates and verifies up to 8 diskette copies at the 
same time. 


VICTORY can supply you with literally dozens of 
standardized formats to match the protocol of 
any current computer. In addi- aay 
tion, built-in utilities enable 
you to read or devise any for- 
mat you may require. If that’s 
not enough, VICTORY can 
help you with unusual or 
unique formatting, serializing 
or copy-protecting problems. 

VICTORY duplicators are 
designed to be reliable. Each 
of the copy drives has a 
separate controller to increase 
copying throughput and 
ensure maximum uptime. 
VICTORY Duplicators use 
industry proven drives com- 
bined with 100% digital tech- 
nology . . . there are no 
analog circuits to slowly drift 
out of tolerance. 


Let us help free you from 
your disk-duplicating bottle- 
neck at a surprisingly 
attractive price. Write or call: 
VICTORY ENTERPRISES 
TECHNOLOGY, INC., 8910 
Research Blvd., Suite B2, 
Austin, Texas 78758— 

(512) 450-0801. 
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Victory Enterprises 
Technology, Inc. 
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SMALL] FOR IBM-PG 


Small-C Compiler Version 
2.1 for PC-DOS/MS-DOS 
Source Code included 
for Compiler & Library 
New 8086 optimizations 
Rich I/O & Standard Library 











CBUG SOURCE LEVEL DEBUGGER FOR SMALL C 


Break, Trace, and Change 
variables allontne 
source level 

Source code included 


Datalign 


11557 8th Ave. N.E. 
Seattle, Washington 98125 


(206) 367-1803 


ASM or MASM is required with compiler. 

include disk size (160k/320k), and DOS version with order. 

VISA & MasterCard accepted. Include card no. & expiration date. 
Washington state residents include 7.9% sales tax. 

IBM-PC & PC-DOS are trademarks of International Business Machines 
MS-DOS is a trademark of Microsoft Corporation. 
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Only $95 with FULL SOURCE CODE! 


““.. an incredible learning tool.” Byte 


For only $95, Q/C is a ready-to-use C compiler for CP/M with com- 
plete source code. Here’s what BYTE (May 1984) said: “Q/C ... has 
a portable library and produces good code quality. If you want to 
learn compiler construction techniques or modify the standard lan- 
guage, Q/C is the obvious choice.” 


e Source code for compiler and over 75 library functions. 
e Strong support for assembly language and ROMs. 

e No license fees for object code. 

e Z80 version takes advantage of Z80 instructions. 

e Q/C is standard. Good portability to UNIX. 


Q/C has casts, typedef, sizeof, structure initialization, and function 
typing. It is compatible with UNIX Version 7 C, but doesn’t support 
long integers, float, parameterized #defines, or bit fields. Call about 
our new products: Q/C profiler, Z80 code optimizer, and Z80 as- 
sembler and virtual linker, all with full source code! 


5266 Hollister, Suite 224 
tuECOQDE Santa Barbara, CA 93111 
WORKS 805) 683-1585 


Q/C. CP/M, Z80. and UNIX are trademarks of Quality Computer Systems, Digital 
Research, Zilog, Inc., and Bell Laboratories respectively. 
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L e f f ers Lis f in ‘4 (Listing Continued, text begins on page 8) 


ends < Of dump places + 

CCet te fee ee ee ee re ee re Se ee eee ee 
*#* error (message) 11/73/7834 
et fe ee ee ee ee ee ee ee ee ae 
procedure error (messagersanystring)s: 

VAR yar lnichars: 

beqin 


WT DL CEL C1 HH HH HEHE ERE HE KHER HEHEHE HEHEHE HHH HEHEHE HEHEHE HREH SD i 


writeln (message) ; 


writeln( Do you wish error message output to printer?) 


readin¢(y orm); 

Yor _ mi=upcasely_or_ mn): 

if yior_ln = °¥° then wreiteln(lst,message) ; 
dump places: 


2 
3 


writer no ses seeee APE Ctri-C to kill program, else return to continue“) 


readin¢éy arin); 
end: eet error. 2 
ee ee ee ee ee ee ee ee ee es 
** enterringdit) 11/2/84 
HH HK HH HH HHH EHH EE HE HEE EE EEK EE KE EEE EEE EE EE IEE EEE 
procedure enterring litimame) ; 
beqin 
if place ptriplace depth then 
begin 
Place ptri=place ptr+l; 
Placelplace ptriJj:=ity; 
end 


elee error (’ place stack averflow upon enterring "‘+it+ 


end 5 { Of @enterring } 


CHEE EH EH EEE EE EE FE HE HE EE HE EE SEK EE FE HEE FE HE HE EE 9 9 5 98 
¥* leaving 11/72/34 


HH HEHE HE EEE EE KEE EE HH EH HE EEE EH HE EEE HEE IEE EEE ET: 
procedure leaving; 


begin 
if place ptr<=0O then 
begin 


place ptr:=place depths 
errar(’place stack underflow’); 
end 
else place ptr:=place_ptr-1; 
ends { Of leaving} 
ee ee ee ee ee ee ee ee ee ee ee ee es 


*#* starting 10/20/84 
ee ee ee ee ee ee ee ee ee ee ee ee 
procedure starting: 

beqin 


place ptr:z=-1; 

enterring(’ main’); 
enc: { Of ‘starting <+ 
CcLe fe fe fe ee ee ee ee ee ee ee ee ee es 
*#*% ending 11/2/84 
ee ee ee ee ee ee ee ee ee ee ee aes 
procedure ending; 


begin 
leaving: 
if place ptrzc-1 then 
begin 
error ("place stack imbalance’): 
end 5 
ends < Of ending } 
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DR. DOBB'S CLINIC 


D.E. Cortesi 
A Random Choice 


The generators of pseudo-random 
numbers are algorithms that lie on the 
boundary between computer science 
and recreational mathematics. They’re 
as little tainted by real-world consider- 
ations as we could want, but they are 
endlessly measurable, improvable, 
discussable. 

These thoughts were inspired by a 
recent issue of PC World, in which one 
Gary Andrew reported an unusually 
simple algorithm for generating ran- 
dom integers. Andrew gives credit to 
Drs. Wilson Talley and Nicholas Me- 


tropolis for the design of the algorithm. 
He claims it stands up well to a variety 
of tests, a claim we’ve not attempted to 
verify. 

Andrew gives the algorithm in BA- 
SIC; we recoded it in C by way of un- 
derstanding it. Our interpretation ap- 
pears in the Listing (page 20). It looks 
to us as if a version that produced 16- 
bit numbers would be most effectively 
coded in assembly language. Then 
some tricks could be played with carry 
flags, etc., to avoid having to carry 
long-integer intermediate results. 
Anyone who codes one up, or who does 
any statistical tests of this generator, 


Case-name 


Cage 


Castle-1 


Castle-2 


Chamberlin-1 
Chamberlin-2 | 


Cortesi-1 
Cortesi-2 


Cortesi-3 


Floyd-1 


Floyd-2 
Floyd-3 
Floyd-4 

Floyd-5 


Gunn-1_ 
Gunn-2 


Gunn-3 


Hoffman-1 


Hof fman-2 


Hole-1 ~ 


Hole-2 
Hole-3 — — 


Prince 
Sabin -1 
Sabin-2 
Schemm- 1 
Schemm-2 
Schemm- 3 
Schemm-4 


/Schemm-2Z1 
Schemm-Z2 
Swearingen 


16 


Machine 


NorthStar © 
NorthStar | 


NorthStar 
MTU-140 
MTU-140 


~§-100 


TRS-80 4P 


_ Apple-ALS 
fe 


PC 


PC-XT 
- PC-XT 
_PC-XT 
NorthStar 


NorthStar 


Zilog MCZ-1 
S-100 
8-100 


CompuPro 
CompuPro 


~CompuPro 
Morrow MD-3 


n.a. 
Altos 5 


TRS-80 III 
Digital Grp 
Digital Grp 


IMS 
NorthStar 
Z-110 
Z-110 

Big Board 


CPU 


780 4MHZ 


280 4MHZ 
280 4MHZ 


6502 1MHZ 
6502 1MHZ 
Z80 4MHZ 

Z80 4MHZ 

Z80 6MHZ 

8088. 


—8088 


8088 | 


8088 © 


8088 
8088 
Z80 4mhz 
Z80 4mhz 


280 2.5mhz 


Z80 4MHZ 
Z80 4MHZ 
8088 8MHZ 
8088 8MHZ 


8088 8MHZ 


Z80 4MHZ 
Z80 2MHZ 
Z80 4MHZ 
Z80 2MHZ 
Neae 
nea. 
NeGe 
Z80 4MHZ 
8086 
8086 
Z80 4MHZ 


DOS 


CP/M 2.2a 
N*DOS 
CP/M 2.2a 
CODOS 
CODOS 
CP/M 3.0 
CP/M 3.0 


PCDOS e. 
PCDOS 2. 
PCDOS 
PCDOS 
PCDOS 
PCDOS 
CP/M 
CP/M 
CP/M 
‘CP/M 
CP/M 
MP /M 
MP/M 
MP/M 
CP/M 
CP/M 
CP/M 
CP/M 
CP/M 2.2? 
Disk-MO 
CP/M 2.2? 
CP/M 2.2 
ZDOS 
CP/M-86 
CP/M 2.2 


Table 1 
The cases—reporters and configurations—analyzed in the 
throughput study. 


OOO © OC © 


Drives and other factors 


5-inch 
5-inch 
5-inch 


8-inch 
5-inch 


5-inch 


5K buffer 

32K buffer 
thinline 
thinline 


Apple 5-inch 
5-inch, verify off 
5-inch, verify on 


to Mdisk 


S-inch, verify off 
5—ineh, verify on 


5-inch 
5-inch 
5-inch 
8-inch 
8-inch 
8-inch 
8-inch 


to Mdisk 
Tandon 100-2 
Tandon 100-2 
Shugart 800-2 
single-density 
double-density 


21MB hard disk 
Mdrive-H 


5-inch 
8-inch 
na. 

5-inch 
8-inch 
8-inch 
8-inch 
5-inch 
5-inch 
5-inch 
8-inch 


Single density 








be sure to write. 
Skies Still Falling, Ho-Hum 


A couple of readers had comments on 
our November review of Computers In 
Crisis. Charles Martin of Durham, 
NC, comments: ‘““The same issue—oh- 
migod what will happen to our Julian- 
date routines on | Jan 2000—was cov- 
ered rather completely (read: thrashed 
half to death) in ComputerWorld in 
about 1975. That someone would write 
a book about it now is surprising; that 
Petrocelli would publish it only proves 
you don’t have to be smart to be an 
SHitet sip 

Terry Jackson of Lombard, IL, with 
tongue firmly implanted in cheek, 
wrote: “The issue of date storage 
should be addressed promptly.” Why? 
Because “it is well known to anyone 
associated with large DP operations 
that 16 years is not enough for them to 
solve this problem.” But he has an an- 
swer: “The obvious solution is to get 
the whole world to agree to write the 
year in hexadecimal. That defers the 
crisis until 19FF (2155 old style), thus 
allowing time to rewrite the software, 
and maybe enough time to debug.” 


Throughputting 


In the July Clinic we wrote about the 
idea of “throughput” and suggested 
that the throughput of a system’s fun- 
damental file-copy utility would be a 
useful capsule measurement of the per- 
formance of that configuration of soft- 
ware and hardware. We measured the 
time it took CP/M Plus and PIP to copy 
files of different sizes on three differ- 
ent hardware configurations. The 
numbers seemed to fit a linear model 
pretty well. 

A dozen readers took the time to 
measure their own systems’ copy times 
and report them. Their names, and the 
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essential details of their hardware and 
software configurations, are listed in 
Table 1 (page 16). Most cases describe 
CP/M systems, but we received a few 
reports on NorthStar DOS, CODOS 
(what?), and PCDOS. No measure- 
ments of 68K-based systems, Apple 
DOSses, Triss-DOSses, Commodore 
64s, or Ataris were reported. Where is 
everybody? 

Table 2 (below right) lists the copy 
times reported with each case in Table 
1. As shown, the numbers appear to be 
precise to the nearest tenth of a second, 
but this was not the case. Most times 
were taken with hand-operated watch- 
es, and so are accurate to the nearest 
0.2 second at best (it is not difficult to 
get repeatable times to this accuracy 
using a hand-operated watch, but it is 
difficult to be any better). Some were 
reported only to the nearest sejod and 
were entered with a fraction digit of 
zero. And there may be a few transcrip- 
tion errors, since some numbers were 
submitted in minuscule handwriting on 
reader service cards! 

Furthermore, we can’t be sure that 
the measurements were taken in a con- 
sistent way. They were supposed to re- 
flect the time to copy a file from one 
disk to another, exclusive of any time 
needed to load a copy program (the 
built-in COPY command of MSDOS: 
multiple-copy mode of CP/M PIP). 
There was an unstated (but obvious) 
assumption that all buffered data 
should be forced to disk in the mea- 
sured time. We suspect that some sort 
of buffering phenomenon is affecting 
the more remarkable ZDOS and 
PCDOS measurements. 


Throughput Models 

Several readers made thoughtful com- 
ments on the numbers. Bruce Johnson 
of Lakewood, CO, had this to say: “‘The 
throughput you showed in the table is 
really a combination of two factors. 
One is the speed at which PIP transfers 
data—which I would call throughput— 
and the other is a theoretical minimum 
time to transfer a zero-length file, 
which I would call the setup time. The 
setup time corresponds to the Y-inter- 
cept of each line on the graph, while the 
throughput corresponds to the recipro- 
cal of the slope of the line. I would sug- 
gest as a measure of throughput for lin- 
ear utility programs: 
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T = 60/(T64 — T4) 


where T = throughput, T64 = sec- 
onds to transfer a 64K file, and T4 = 
seconds to transfer a 4K file. This for- 
mula will yield a useful measure of 
throughput over the range of file sizes 
of most interest with only two 
measurements.” 

Johnson’s ingenious formula does 
just what he claims; it produces num- 
bers that are in fair agreement with a 
more elaborate model to be discussed 
below. 

William Hole, of Barrington, RI, 
made the same point, that the timings 
we published and those he took on his 
Own system were a good fit to a linear 
model with a fixed startup time. He 
put his numbers through a linear re- 
gression test to check the model and 
got good agreement. 


CP/M Measurements 
Because Bill Hole seemed to know his 
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Castle-1 5.5 5.5 19. 11 
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Chamberlin-2 2.5 2.5 2-9 3. 
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Hole-3 0.6 0.6 O./ CG. 
Johnson 3.6 3.7 47 6. 
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Schemm-2 —.- 2.6 2.6 5. 
Schemm-3 -.- 7.6 8.0 9. 
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Schemm-Z1 -.- 1.4 0.9 ce 
Schemm-Z2 —-.- 3.4 3.1 5. 
Swearingen 3.4 3.6 4,2 5. 
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Table 2 


way around the fundamental tools of 
Statistics, we dumped the entire con- 
tents of Table 2 on him and asked him 
to test them for conformity to the fol- 
lowing model: 


T=s + e* floor(n/16)+ n/t 


where T is the reported time in sec- 
onds, s is a setup time, e is the time 
required by CP/M for opening the sub- 
sequent-“‘extent” of a file, n is the num- 
ber of kilobytes that are transferred, 
and t is the number of kilobytes that 
can be transferred in one second, that 
is, the actual “‘throughput”’ of the 
system. 

He performed this analysis for us 
(and many thanks for the time it must 
have taken) but the results are some- 
what equivocal. Table 3a (page 18) re- 
ports the analysis for the CP/M-com- 
patible systems. The first group of 
three columns presents the computed 
results for the setup time. The estimat- 
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Reported times, in seconds, to transfer files of different sizes. 
These data were input to the analysis performed by W. T. Hole. 


The two italicized entries were mistranscriptions (see a 
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ed setup time appears in the first col- 
umn. The second column (headed “‘s/ 
e”’) gives the standard error in seconds; 
that is, the estimated setup time, plus 
or minus this value, should encompass 
68% of the observations. 

The third column, headed “‘prob,”’ is 


a confidence rating. It is the probabili- 
ty that the setup value should equal 
zero. If it exceeds 0.05, the setup time 
is probably not a reasonable part of the 
model. The eye is drawn at once to the 
third line, case Sabin-1, the only case 
that appears not to conform to a model 


that includes a fixed setup time. Why 
is this? Quite possibly because, as indi- 
cated in Table 2 by an italicized entry, 
one of Joe Sabin’s numbers was mis- 
transcribed (the 48K copy time should 
be 34.0 seconds). There wasn’t time to 
rerun the analysis, so we left this case 


in place as an interesting exception. 
The fact that the only case not to fit 
the model contained bad data seems to 
strengthen the case for the model. 

The second group of three columns 
in Table 3a represents the estimate for 
factor “‘e,”’ the time to open a new 16K 
file extent. Again the first column is an 
estimate of the time, the second is the 
standard error—read it as “plus or mi- 
nus seconds’—and the third a confi- 
dence rating. You'll immediately no- 
tice that the second line exhibits a 
remarkably unconfident probability of 
0.967. A 16K extent overhead isn’t ap- 
parent in the numbers for this case 
(which were transcribed correctly). 
That’s odd, because (as we can see in 
Table 1) this case involved CP/M sin- 
gle-density 8-inch disks. Other cases 
that disagree with the hypothesized ex- 
tent factor are easier to explain, e.g., 
because they use a 32K extent or (in 
the case of the M-drive) because the 
extent overhead is actually near zero. 

The final group of three columns 
presents the estimated throughput, 
with the same interpretation as before. 
A poor confidence rating here (one 
greater than 0.05) indicates that these 
data do not fit a linear model. There is 
one case in Table 3a for which this is 
definitely true and two others that are 
suspect. 

But by and large, the linear model of 
throughput fits very well, so the 
throughput value (on which Table 3a 
is sorted) is probably a fairly good esti- 
mate for these CP/M-based systems. It 
shows a general trend of increasing 
speed from 5-inch drives to 8-inch to 
M-drives, with Hole’s CompuPro M- 
drive the fastest. Schemm’s Z-100 (8- 
bit CP/M, but with I/O handled by a 
16-bit BIOS) produced a remarkable 
time for a 5-inch disk drive. We sus- 
pect this measurement was affected by 
some sort of internal buffering—notice 
that it conforms less well to the linear 
model than most. 


Case 


~-—-— Extent 
sec. s/e 
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sec. s/e 


--- Throughput 
kb/sec s/e 
3.13 
3.3¢ 
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Table 3a 
Analysic of the CP/M (and MP/M) cases, ranked by i increasing 
throughput. . 





--- Throughput 
kb/sec s/e 


~--- Extent 
sec. s/e 


Case --- Startup ---- 


sec.  s/e _ prob 


0.99 
5.45 
10.03 
11.80 


0.000 
0.000 
0.000 
0.007 


 Castle-1 3.96 0. 
Chamberlin-1 2.17 0. 
Chamberlin-2 2.50 OQ. 
Schemm-2 2.43 O. 


3.24 
-.28 
0.42 
0.64 


0.03 


0.0660 


Table 3b 
Analysis of 8-bit Dos’ s other than CP/M. These cases were a poor 
fit to the hypothesized model. 





--- Throughput 
prob kb/sec s/e 


--- Extent 
sec. s/e 


--- Startup ---- 
sec. s/e prob 


Case 


Floyd-2 
Floyd-1 
Floyd-3 
-Floyd-5 
Floyd—4 


3.44 
2.27 
1.35 
4.79 
4 47 
3.28 
0.97 


1.80 
1.26 
0.34 
0.06 
0.01 
0.01 
0.33 


Table 3c 
Analysis of the few reported PC-, MS-, or Z-DOS cases. Not only 
the extent, but the linear model is rejected by these numbers. 


0.002 
0.005 
0.000 
0.000 
0.000 
0.000 
0.004 


0.286 
0.345 
0.500 
0.853 
0.974 
0.956 
0.252 


1.54 
1.23 
0.48 
0.35 
0.47 
0.30 
0.23 


9.00 
12.26 
18.24 
18.72 
24.50 32.3) 
35.08 38.44 
72.99 515.24 


19.73 
36.28 
13.9) 

9.05 


Floyd-6 
Schemm-Z1 


0.3383 


Non-CP/M Throughput 
Table 3b (page 18) contains the analy- 
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sis of the cases that involved 8-bit sys- 
tems other than CP/M. Mostly these 
deny an “extent” hypothesis—not un- 
reasonably, since that’s a CP/M pecu- 
liarity—and half of them appear to be 
nonlinear. One of these is due to a tran- 
scription error: we miscopied Hal 
Chamberlin’s 48K time as 6.5 seconds 
when it should have been 8.3 seconds. 
With that change, case Chamberlin-2 
should be much closer to linearity, but 
time didn’t permit rerunning the 
analysis. 

Table 3c (page 18) details the analy- 
sis for the MSDOS (PCDOS, ZDOS) 
cases. We expected that an MSDOS 
copy command would be just as linear 
as a CP/M PIP operation. That appears 
not to be so, as none of these cases con- 
forms to the linear model. That they 
don’t support the ‘“‘extent” factor is no 
surprise; there are no “extents” in 
(MSDOS. But that they don’t appear 
linear is most puzzling, as is the re- 
markable speed they suggest. (After 
all, no amount of software cleverness 
will make a 5-inch drive rotate or seek 
any more quickly, so why should a PC 
be so very much quicker than an 8-bit 
system with equivalent drives?) Cana 
reader suggest what might be going 
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on? Is there a measurement procedure 
for MSDOS that will produce linear 
numbers? 


The Johnson Model 

We present Table 4 (below) as a final 
view of the data. It shows all the cases 
that support a linear model, ranked by 
what we might call their “Johnson 
Number’—the figure of merit pro- 
duced by Bruce Johnson’s formula dis- 
cussed earlier. There is a fairly close 
correspondence, so Johnson’s rule of 
thumb is useful when the data is lin- 
ear. But since it presumes linearity, it 
should only be applied where linearity 
is known to exist. 


DD) 
(Listing begins on page 20) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 


64k Johnson 
Time Number 


Linear 
Model 


0.86 
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1.21 
1.22 
1.72 
1.74 
2.18 
2.ce 
2.26 
2.49 
2.99 
3.06 
3.16 
3.24 
3.82 
3.82 
4.11 
4.29 
4.35 
4.48 


78.0 
72.0 
56.7 
55.0 
42.8 
39.5 
32.5 
31.7 
31.0 
20.3 
eent 
22.6 
24.2 
22.0 
18.6 
22.9 
18.0 
16.4 
17.9 
17.0 
13.6 5.71 
12.0 6.74 
3.5 19.35 


0.99 
1.15 
1.42 
1.2] 
2.20 
1.99 
2.79 
2. 36 
2.2) 
2.86 
4.10 
3.90 
3.74 
3.64 
5.10 
4.12 
6.11 
3.73 
4.93 
5.75 
5.45 
9.96 
20.61 


Table 4 


The cases that matched a linear model, ranked by Bruce John- 
son's rule-of-thumb formula. 
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Dr. Dobb’s Clinic Listing (Text begins on page 16) 


/* 
Random integer algorithm reported by Gary Andrew to 
the "*.*#" aolumn of PC World, December 1984, with 
credit to Drs. Wilson Talley and Nicholas Metropolis. 
Recoded to C by DEC. 


This version produces 15-bit integers; for 16-bit 
unsigned integers longs must be used for intermediate 
computations. 

% / 

#define BITS 15 /* how many bits in numbers */ 

#define MAXO 1 << BITS 

#define MAX (MAXO) - 1 


#define private static 
#define cardinal unsigned /* is this Wirth-while? */ 


private cardinal seedA = 32749, seedB = 32633; 


int rseed(a,b) 
cardinal a,b; 
{ /* seed the generator, returning first number of sequence */ 


a &= MAX; /* reducing negative signed ints, */ 
b &= MAX; /* ..etc., to values <= MAX #*/ 


a *= 2; if (a>MAX) a -= MAX; 
b *= 23; if (b>MAX) b -= MAX; 
seedA = a3 seedB = b; 

return (b); 


} 


private cardinal rand0() 
{ /* cycle the generator, return next number of sequence */ 


register cardinal c; 


ec = seedA + seedB; 

if (c>MAX) c -= MAXO; 

e *= 23; if (c>MAX) c -= MAX; 
seedA = seedB; seedB = ¢c}3 
return (c); 


} 

cardinal randi(n) 

cardinal n; 

{ /® return a random number in 1..n */ 


register cardinal c; 


ec = rand0O(); 
return ( 14+ (c 4n) )3 


20 


End Listing 
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by A. Skjellum 


Before beginning this month’s column, 
I want to express my congratulations 
to DDJ on its 100th issue. (My first 
DDJ article appeared a little more than 
five years ago.) I hope that readers will 
continue to make their excellent con- 
tributions to keep the magazine going 
during the next few years; I include 
both members of the “told guard” and 
new readers in that wish. 

This month, I include more of the 
reader responses received over the past 
few months—plus some ideas about 
variable formats in printf( ) functions. 


A C Style Reference 


Last year, we had a long-running dis- 
cussion on C style. Several references 
were cited at that time. Since then, I’ve 
run into another paper on the subject. 
While the formatting is different from 
what I prefer, I think the paper is well 
worth reader attention. The article, 
called ““A C Style Sheet,” was written 
by Martin Minow of Digital Equip- 
ment Corp. The article lists an address, 
so perhaps this is the best way to ac- 
quire a copy: 

Martin Minow 

Digital Equipment Corp. 

146 Main St., MLO 3-3/U8 

Maynard, MA 01754 
It includes a list of references from 
which the work has been abstracted. 


Wish List 


John M. Gamble of Batavia, Ohio, 
writes: 

‘“T am very glad you printed this col- 
umn [August 1984] (I ranked it num- 
ber one for the month) because it in- 
spired me to jot down my own wish list. 
It is only one wish long, but it is some- 
thing I have longed for for some time.” 

Mr. Gamble’s wish is for a way to 
control more precisely the sizes of in- 
trinsic data types in C. For example, 
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integers can have different sizes on dif- 
ferent machines. He continues: 

“The size of the various types (int, 
char, long, etc.) vary too much from 
machine to machine. However, I don’t 
think that forcing a size to a type (a la 
Plum Hall) is the answer (besides, I 
hate the baby words Plum uses to de- 
fine them). Instead, I think that anoth- 
er ‘storage class specifier’ (see The C 
Programming Language, p. 192) like 
typedef could be defined. I’m going to 
call it ‘sizetype.’ Sizetype would be 
used just like typedef, but what is de- 
clared is the size of the storage class. 
For example, we could define a type 
small this way: 


sizetype u8 small; 


The letter ‘u’ is optional and stands for 
‘unsigned.’ Thus, a variable of type 
small is unsigned and 8 bits long. An- 
other example would be: 


sizetype 16 hexsize; 


which would guarantee that variables 
of type hexsize are 16 bits long.” 

I am very enthusiastic about Mr. 
Gamble’s suggestion. It would enhance 
portability of C code. Anyone who has 
moved between microcomputers and 
minis is aware that significant prob- 
lems can occur when moving from ma- 
chines with signed or unsigned charac- 
ters. Integer length differences are also 
annoying. He adds: 

‘‘Use of the sizetype declaration 
would guarantee portability between 
machines (which currently is a heck of 
a problem). It also means that only one 
more reserved word is added, instead 
of the many which would be needed to 
define a type for every conceivable in- 
teger length. If the sizeof operator 
could be altered to return fractions, we 
could use sizetype to define bit lengths 
that are not multiples of eight. On the 





other hand, I notice that the sizeof op- 
eration on a bit-field structure is not 
defined in The C Programming Lan- 
guage, so maybe it is just up to the per- 
son who writes the compiler.” 


Another August Response 


Readers may have followed the some- 
what fervent comments made by Ger- 
ald Evenden in the August 1984 col- 
umn. He has responded to my remarks, 
and these remarks deserve further 
commentary. To summarize the previ- 
ous material: Mr. Evenden was ex- 
tremely displeased by my comments 
about C because he felt that they could 
convey the wrong impressions to the 
uninitiated. Furthermore, he felt it un- 
fair for me to discuss C I/O libraries 
without strongly emphasizing that C 
and its libraries are completely sepa- 
rate concepts (which they indeed are). 
He now writes: 

“In regard to your response to my 
letter in the August issue ... I feel I 
must expand upon some of my earlier 
points and make some additional com- 
ments. In addition, please excuse the 
excesses of a middle-age curmudgeon. 
Scars acquired in numerous battles of 
the computer wars tend to create a 
knee-jerk reaction when I sense some 
potentially deviant and dangerous 
thought processes. I wanted to empha- 
size that the compiler and the support 
library are two very distinct entities 
and we must be careful to maintain the 
distinction. When I talk of C, I am re- 
ferring to the compiler ... when I talk 
about the C library, I am referring to 
what I feel is currently a very vague 
and poorly defined item.”’ 

The original concept of a C library is 
defined in The C Programming Lan- 
guage. Other libraries are available on 
Unix systems, but these vary from in- 
stallation to installation and from ver- 
sion to version. I agree with Mr. Even- 


Dr. Dobb’s Journal, February 1985 





den that the words “C library” are 
currently vague. In my opinion, we 
should standardize functions that are 
not inherently Unix-only features. For 
example, we should include: 

(1) “‘block” input-output (read, write, 
and relatives) 

(2) stream input-output functions 
(e.g., fopen, fwrite, fputc) 

(3) memory allocation functions (cal- 
foe, matioc, ; <<) 

(4) setjmp/longjmp procedures 

(5) alarm (but not signal, which is 
Unix dependent) 

(6) exit 

(7) scanf, printf, and relatives 
Furthermore, we should include the 
Unix math library, because these are 
fundamental routines (e.g., sin( ), 
exp( )). Readers may wish to formu- 
late an exact list for exclusion and in- 
clusion. If there is sufficient response, 
we could propose a standard for the C 
library in a future column. 

Mr. Evenden continues: 

“This sensitivity to the compiler- 
library problem is caused by having to 
deal with compilers where too many 
features that should have been relegat- 
ed to the support library were included 
as part of the compiler [i.e., language 
definition]. For example, Fortran gives 
us READ, WRITE, and a few other in- 
put-output support operations, which 
must be treated by the compiler as spe- 
cial operations since the syntax does not 
match normal external module calls (of 
course, external modules are involved, 
but they are transparent to the pro- 
grammer). When specialized input-out- 
put is required, which can’t be handled 
by these statements, all sorts of contor- 
tions are done by the programmer to 
get around these restrictions ... typi- 
cally these gyrations are specific to the 
host system. In addition, many manu- 
facturers will compound a bad situation 
by supplying a compiler with supple- 
mentary functions to provide access to 
unique features of their system. Good- 
bye transportability!” 

Mr. Evenden is one hundred percent 
correct. Fortran’s implicit connection 
of input-output functions to the lan- 
guage is a terrible failing. Pascal also 
suffers from this malady, even though 
it is a newer structured language. 
Evenden continues with the following 
remarks: 

‘In the case of C, the compiler writer 
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doesn’t have to go out of his way to han- 
dle special input-output syntax, and the 
programmer utilizing the typical C li- 
brary can go to basically three levels of 
input-output to handle his problem: 

(1) basic block ‘read’ — ‘write’ 

(2) buffered (stream) input-output 
with the getc( ), putc( ) functions 

(3) Fortran-like scanf( ) and printf( ) 
Operations 

This is an excellent example of build- 
ing-block code: the read-write level is 
the lowest level and is the only place 
where we have to deal with the host ma- 
chine’s operating system; each succes- 
sive level uses the previous level’s en- 


tries. The applications programmer can 
thus choose the starting level best suited 
to his job and add the remaining tiers of 
code to perform his task.” 

Given this buildup of the C library, 
Mr. Evenden returns to the reasons for 
his original objections: 

“One of the principal fears I have is 
that if we get to talking about the C 
compiler and a standard library in one 
breath, we will find some well-meaning 
ignoramus developing a C compiler 
with built-in input-output functions 
(or, for that matter, other ‘special’ fea- 
tures). In this situation, our input-out- 
put is engraved in stone, and we will be 
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forced back into the same situation in- 
volved in Fortran coding. With C, we 
can individually or collectively trash 
the input-output part of the library in 
favor of some new software and still 
preserve the compiler itself. In addi- 
tion, the old software is still good as 
long as we maintain a working copy of 
the old library. We often cannot do this 
if the compiler has been rewritten. I 
would much rather try to transport a 
program where a few specialized rou- 
tines had to be rewritten than... deal 
with compiler variations.” 

To summarize the principal points 
Mr. Evenden makes (and with which I 
agree): 

(1) Computer languages like C are su- 
perior because they segregate their li- 
brary from the language definition. 
(2) Because of (1), the language offers 
greater maintainability, even through 
revisions of the libraries, because we 
can retain old libraries more readily 
than whole compiler environments. 

(3) Specialized applications can com- 
pletely ignore the standard software li- 
brary without any loss of power. 

(4) When informing/teaching people 
about C, we must emphasize this 
unique feature to ensure that it is re- 
tained in future incarnations of the 
language. We hope future languages 
will also be constructed in this way. 

To summarize his point, Evenden 
States: 

“The problem of C libraries and 
what is a ‘standard’ C function is not 
yet resolved and needs further discus- 
sion. Tight binding of C and Unix is 
unfortunate, and we need to dissociate 
the two if we are to encourage non- 
Unix use of C and transportable C 
software. An important part of this un- 
binding is specifying a viable C library 
which can be installed without ambi- 
guity and omission on a wide range of 
operating systems.” 

This is similar to what I mentioned 
above. I encourage a reader effort 
along these lines. 


Tongue Biting 

In his previous letter, Mr. Evenden in- 
dicated that he usually “‘bit his 
tongue” instead of complaining about 
C. I suspect that he is truly concerned 
that dissent about C could lead to its 
demise as an important language. He 
addresses this point as follows: 
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‘My ‘tongue biting’ remark related 
to criticizing the C language was, of 
course, mostly rhetoric. But most of 
my criticisms are minor except for one: 
evaluation of all floating-point data el- 
ements in double precision. When two 
type float values are joined by a binary 
operator, I fail to see any reason why 
we should pay the costly runtime pre- 
mium of double-precision evaluation! 
Of course, conversion of float function 
arguments to double is equally strange 
and pointless. I suspect that floating- 
point arithmetic was one of the last 
features added to the language and got 
shortchanged in the final stages of de- 
velopment of C. If the people at Bell 
Labs have any excuse for this peculiar 
handling of floating point by C, Id 
sure like to hear it! Hopefully, some 
... readers may also have comments.” 

Mr. Evenden has hit on an impor- 
tant point. Not only is the conversion 
of float to double expensive, program- 
ming can get messy when dealing with 
pointers and arrays. For example, a 
program that needs a large number of 
floats (in an array) is difficult to use 
with a function that expects pointers to 
double. I see no reason for using arrays 
of double-precision numbers for many 
applications. Yet, to simplify program- 
ming logic, memory must often be 
wasted (by a factor of two) for float- 
ing-point arrays. On systems like the 
8086/8087, the actual cost for single/ 
double-precision operations is the 
same, but conversions and other effects 
are still cause for grief. 

Evenden continues: 

“TI have given some thought to what 
would be required to make C’s floating 
point behave in a more traditional 
manner and have come to the conclu- 
sion that upward compatibility of a 
new compiler might not be possible as 
far as floating-point syntax is involved. 
Obviously, the ‘standard’ library rou- 
tines will have to be changed (‘printf 
will need ‘%E’ and ‘%e’) ... functions 
returning floating-point values will 
have to be in two precisions (sqrt( ) 
and dsart( ), for example).”’ 


Variable Formats in printf( ) 


I'd like to change gears and consider 
an aspect of printf( ) format strings. 
Consistent with the previous discus- 
sion, I remind readers that this is a dis- 


cussion relevant to the C library and 
not the compiler. 

A typical printf( ) call might look as 
follows: 


float number; 
printf(“%7.3e\n”’,number ); 


In certain cases, we might wish to vary 
the format dynamically. One way to 
accomplish this is shown in the Figure 
(page 25). 

The format string in the sprintf( ) 
presented in the figure is “%%%sf.” 
The first two percent signs place a sin- 
gle output percent in fmt_string. The 
“Ms”? causes the string format (con- 
taining ‘““7.3”’) to go into fmt_string. 
Finally, the letter ‘“‘f” is interpreted lit- 
erally and is sent to fmt_string. The 
point of giving this example is to show 
how cumbersome the operation can be. 
Now I want to pose a simple solution to 
the problem. 

To allow variable formats as part of 
a single printf( ), we need a way to in- 
dicate an indirection. Then printf( ) 
could use the current member of its ar- 
gument list as a source for the format. 
This is illustrated as follows: 


float number; 
printf(“% &s\n’’,*7.3f” number); 


The indirect format is “&s,” which 
tells printf( ) to take the first argument 
as a string and print it into the format 
string before proceeding. Thus, the ul- 
timate format string is “%7.3f.” An- 
other possibility would be: 


float number; 
float format = 7.3; 


printf(““% & f\n” ,format,number ); 


which demonstrates the range of 
choices allowed by indirect formats. 
To print an ampersand, we would need 
the following sequence: 


printf(“%& &’’); 


Why would these be useful? Primar- 
ily, they allow programs to readily 
adapt to data variations. This could al- 
low greater user selectability or, if ex- 
tended to scanf( ), greater ability to 
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read and write “foreign” data files. 
Conclusions and Comments 


In this column, I have presented more 
reader feedback and some brief com- 
ments about printf( ). 

The “C/Unix Programmer’s Note- 
book” was started in September 1983. I 
think that I have achieved a lot in writ- 
ing the column during this last year. 
Unfortunately, other responsibilities 
make it impossible for me to continue. 
Therefore, I wish to thank those readers 
who have responded for their assis- 
tance, ideas, and criticisms. I also hope 
the readership will provide the new col- 
umnist with the same level of enthusias- 
tic support that I have received. Inten- 
tionally, I have left few loose ends in my 
discussion. This will allow the next col- 
umnist to develop areas of discussion 
without too much loss of continuity. 
With a new columnist comes a new per- 
spective, and I hope that more Unix 
coverage will be possible. Certainly, I 
don’t expect that C will be excluded for 
the benefit of Unix but rather that a 
balance will be struck. Perhaps some- 
day we will have separate “Notebooks” 
for each subject. 

Thank you. I look forward to enjoy- 
ing the next one hundred issues of DDJ, 
and I hope you enjoy them too. 


An Addendum: 
The Future of C 


Concerning future upgrades /modifi- 
cations of C, Evenden writes: 

‘Some people criticize C as being a 
‘Spartan’ language, but I maintain 
that this Spartan attribute is its princi- 
pal and strongest feature... [C] is a 
real programmer’s language providing 
an excellent tool for doing everything 
from real-time processing, to writing 
other compilers, to sophisticated scien- 
tific applications. If we ever make 
changes to C, we will have to be very 
careful to maintain this strong feature 
of the language.” 

I leave this quotation as my parting 
remark. 


DD] 


Reader Ballot 
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float number; » 


char fmt_string[ 100]; 
char format[10]; 


/* make format string here*/ 
/* format contained here */ 
/* copy a specific format */ 


strcpy(format, 7.3”); 


sprintf(fmt_string, “%%%sf” format); /* make format string */ 
printf(fmt_string,number); /* print number in format */ 


Figure 
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Festschrift for Doctor Dobb 





Contributions by Suzanne 
Rodriguez, Tom Pittman 
and Bob Albrecht in 
celebration of the 100th 
issue Of DD/ 
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Suzanne Rodriguez was editor of DDJ 
from January 1979 to September 
1980. It was Suzanne who introduced 
the funky colored border (designed by 
Betsy Roeth and Aleeca Harrison) and 
Suzanne who published Ron Cain's 
original Small-C compiler. 

Tom Pittman wrote to DDJ in March 
1976 to announce his version of Tiny 
Basic for the Motorola 6800 micro- 
processor. Unlike the DDJ version, 
Tom’s Basic was not free (“software is 
my living,” he said). The price: $5. 
Bob Albrecht is the “OB” of Dr. Dobb. 
After launching (with Dennis Allison) 
DDJ, he went off to launch new pro- 
jects. He is presently involved in a cor- 
poration dedicated to computers and 
small children, fantasy role-playing 
games, and tennis. His contribution 
here launches a new DDJ department 
by Bob and Mike Swaine: Realizable 
Fantasies. 


many successful organizations, and 
even a few publications, got them going 
and then gone on to pursue new ven- 
tures. Allison’s ventures tend to take 
place in the business and academic 
worlds; Albrecht’s almost exclusively 
with children and computer learning. 
What is also not history is the long 
list of people whose lives have been in- 
fluenced, at a formative time, by one or 
the other—or both—of this duo. If 
you’ve been following the routine rules 
and regulations of the world, doing 
things the way you've heard they’re 
supposed to be done, your first interac- 
tion with Allison and/or Albrecht can 
leave you somewhat dumbfounded. 
Prolonged interaction either gets you 
running with a vengeance back toward 
the world of rules, or it changes you. 
Take me, for instance. I first met Al- 
lison and Albrecht in late August of 
1978, when they interviewed me to be- 





Who is Dr. Dobb? Can you hack on a Mac? And who 
are the hackers of tomorrow? 





The Bob and Dennis Show 
by Suzanne Rodriguez 


one book or article discussing the 

founding of Dr. Dobb’s Journal, and 
chances are that you have, too. It all 
sounds fairly straightforward on the 
surface: Bob Albrecht asked Dennis 
Allison to write a 2K BASIC that could 
be published in the newspaper AIl- 
brecht had founded, People’s Comput- 
er Company. Allison complied. The 
rest is history. 

What’s not history—at least not 
yet—is how incredibly prolific and cre- 
ative Albrecht and Allison are. Togeth- 
er or individually, they’ve founded 


n the past year I’ve read more than 


come the third editor of Dr. Dobb’s 
Journal. (Jim Warren, DDJ’s first edi- 
tor, had gone on to found both the 
Computer Faire and the newspaper 
that would, in time, become 
InfoWorld. Warren’s successor, Tom 
Williams, was soon leaving DDJ to pur- 
sue other endeavors.) At the time I was 
young and inexperienced enough to be 
impressed with my own credentials, 
which were really rather slender: I had 
published a number of magazine arti- 
cles; I had been a technical writer at 
Zilog, writing their first piece of docu- 
mentation; and I was working on my 
Master’s in Journalism at Stanford. 
The idea of being editor of DDJ was 
very exciting: I could combine what I’d 
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be learning in school with the technical 
aspects of the magazine. 

At least that’s what I thought. I 
imagined that I’d be hired for a 
straightforward, rational, logical job, 
and that I'd be working closely with 
rational and logical people, applying 
well thought-out publishing principles 
in a logical and rational manner. Boy, 
did I have a thing or two to learn! 

First there was the interview with 
Allison. He greeted me in his antique- 
and-book-laden home and proceeded 
to question me very thoroughly about 
my recent trip to Greece. We sipped 
retsina and talked for an hour about 
Ios and Samos, ouzo and feta, sleeping 
on beaches and hitching rides on don- 
keys. Finally he turned to me and said: 
“Well, Suzie, as far as I’m concerned, 
you ve got the job.” 

I was very puzzled. We hadn’t men- 
tioned the word computer, and the top- 
ic of Dr. Dobb’s Journal had not come 
up at all. ““But,” I stammered, “‘don’t 
you want to hear about my _ back- 
ground? I mean, I’ve worked with...” 

He dismissed my words with an im- 
patient wave of his hand, a gesture 
which I would come to learn was char- 
acteristic. ““No, no! I think DDJ will be 
in good hands. I make these decisions 
based on character, and it doesn’t seem 
that too much will get by you. You 
might find it difficult working with Al- 
brecht, though—he can be trying— 
but I think you can handle him.” 

I went both dazedly and apprehen- 
sively off to my interview with Al- 
brecht. He had asked me to join him in 
a “piano bar safari.” I had no idea 
what that was, but I was soon to find 
out. A true piano bar safari consists of 
going from one piano bar to another, 
drinking beer and singing in each. At 
our initial meeting, however, we only 
hit one piano bar. I managed to find 
him in the dark interior, and we spent 
the next few hours (when he wasn’t 
singing) talking about fantasy role 
playing, Greek dancing and tennis. 
Once more, computers and Dr. Dobb’s 
were never discussed. When it was 
time for me to go, Albrecht said, al- 
most as if in afterthought: “‘Well, if 
Dennis says you're ok, that’s good 
enough for me.” 

This time I didn’t even bother to start 
flaunting my qualifications. “Fine,” I 
said, “I’m looking forward to working 
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with such a talented bunch.” 

“Oh, you'll learn a lot, there’s no 
doubt about that,’ said Albrecht. 
“You might have trouble with Allison, 
though—he can be difficult—but I 
think you can handle him!” 

This was all the beginning of some- 
thing great—my two years at DDJ. Ev- 
ery day I would sit in my classes and 
learn about the way it’s supposed to be 
in the publishing world. And then I 
would dash to People’s Computer 
Company and experience the way it 
really is. Or at least the way it was in 
that particular place and at that par- 
ticular time. 

While the day-to-day decision mak- 
ing for DDJ was in my hands, larger 


decisions—for instance, should we go to 
glossy paper—were decided by the 
Board. This occasioned marvelous and 
stormy battles, the best of which were 
with Bob Albrecht. In the end he would 
always give in and tell me he’d wanted 
it all along. “I just like a good fight,” he 
would say. This would usually be a day 
in which I had taken a mid-term in 
something like ““Human Resources and 
Intra-Company Dynamics”. If I’d used 
my real-life experiences with Albrecht 
as illustrative examples, I would have 
flunked the course. 

Dennis Allison, on the other hand, 
never fought; he just told you exactly 
what he thought. “I think that’s a fan- 
tastic idea” made you feel just great. “I 
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think that’s the dumbest idea I ever 
heard” plunged you into the depths. I 
kept telling Dennis that what I had 
learned in my seminar on how to moti- 
vate others taught me that he was going 
about things all wrong. In response, he 
said that was the dumbest thing he’d 
ever heard. 

There were the even stormier meet- 
ings of the Board of Trustees where Al- 
lison would bait Albrecht, or Albrecht 
would bait Allison, and one or the other 
would storm out, only to return 5 min- 
utes later with a bottle of champagne. 
We would all toast to friendship, and I 
would silently ponder the term paper I 
had just finished for a course in the law 
school: ““Obligations and Duties of 
Trustees in a California Non-Profit 
Corporation.” What would the profes- 
sor think of the scene I’d just wit- 
nessed? 

I devoted most of my attention to my 
studies and to my duties at Dr. 
Dobb’s—there wasn’t time for much 
else—but I always managed to keep 
aware of what Allison and Albrecht 
were up to. (All of you who know them 
are probably saying, ““How could she 
help it?”) They were always trying to 
tell me that I'd never learn from a book 
what I needed to know about life and 
my work, and about getting along with 
people. For two years I argued with 
them, together and individually, telling 
them I just didn’t understand the hap- 
hazard, unplanned, chaotic way they 
went about doing things. They kept 
telling me that I didn’t know it yet, but 
I was just as crazy as they were. 

I suppose they were right. In the end 
when I'd finished my schoolwork and 
learned everything I could at Dr. 
Dobb’ Journal, | turned down each of 
the highly-paid job offers that came 
my way. I moved to Sausalito to starve 
and write a novel. There are a couple of 
characters in it who remind me of Alli- 
son and Albrecht; they’re quite vivid, 
extremely bohemian and very strong. 
With the exception of the female pro- 
tagonist, they rather steal the show. 


Miac the Hack 
by Tom Pittman 


I recently attended a “Hackers Con- 
ference,” where one of the subjects of 
discussion was the definition of hack- 
er. There was no consensus. Why? 
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When Apple introduced the Macin- 
tosh, I got excited about it just like ev- 
erybody else. This was the computer I 
really wanted! At the Hackers Confer- 
ence, over half the people were into the 
Mac; none was willing to admit to 
spending his time on IBM. Why? 

About the time Jim Warren sold the 
West Coast Computer Faire, most of 
us had noticed that the fun was gone. 
Where were “the good old days?” Ste- 
ven Levy’s book Hackers chronicles 
‘the last hacker.’’ The Homebrew 
Computer Club just isn’t what it used 
to be. Why? 

When I started to write this, I 
thought I had answers to these ques- 
tions, a sort of “unified field theory” of 
computerism. I’m not so sure any more, 
but at least I can share some ideas. 

A hacker is an artist, and computer 
artistry is not distinguished from other 
art forms except in the medium 
chosen. 

Just as paintings range from great 
(e.g. Rembrandt, Dali) to professional 
(painted houses and cars) to spray-can 
grafitti, so computer artisty ranges 
from the sublime (e.g. MacPaint, 
TpX) to the professional (1-2-3 and 
MSDOS) to the so-called 414s. Unlike 
painting, sculpture, music, and the 
like, few people can really appreciate 
the artistry in a computer product. 
Perhaps that will change. 

It is the nature of great art that it 
compresses a great deal of design, in- 
tellectual sweat and individual person- 
ality into the created object. There are 
no great paintings painted by a com- 
mittee of artists. Curiously, it seems to 
matter little what tools the artist had, 
or where his starting point was, provid- 
ed that his accomplishment from that 
point exceeds what the rest of us could 
have done. Ansel Adams had color and 
motion available, but he chose to limit 
himself to black and white stills—and 
what art he created! A virtuoso on a 
violin produces art; the same sound 
from a Moog is ho-hum. 

There is another facet to computing 
that deserves exploration: the urge to 
produce results that are impossible. 
There is a feeling of accomplishment 
in climbing the north face of Halfdome 
for the first time, in breaking the (“‘im- 
possible’) four-minute mile or the 
sound barrier, in producing a tune 
from a computer with only 256 bytes 


of RAM. This same feeling can accom- 
pany feats that are impossible only be- 
cause some authority said “‘you can’t” 
(or must not). Thus, the urge to create 
finds its expression in the hacker who 
cracks the protection scheme in com- 
mercial software, or breaks into a “‘se- 
cure’ computer installation with his 
modem. 

Macintosh is a computer that says, 
“you can’t.” It is promoted as a com- 
puter that is easy to use, but the box 1s 
sealed with screws you can’t reach, the 
software (in ROM) can’t be changed, 
and the development tools can’t be ob- 
tained. Although I don’t think that is 
why computer people buy it, still after 
you get over the realization that it does 
not do all they seem to claim for it, you 
are left with a lot of “impossible” things 
to challenge the aspiring intellect, a lot 
of opportunity to show off your freedom 
from such oppressive forces. 

The computer hacker, like any real 
human being, wants recognition. I 
write programs for a living. I don't 
know if that qualifies me as a hacker, 
but it is more than just a job: it’s fun. 
But I write my best stuff for other peo- 
ple, or at least to help me do things for 
others. I never seem to get around to 
doing things just for me. 

To get recognition requires that the 
program (or hardware, or whatever) 
be noticeably outstanding. It must be 
head-and-shoulders above the compe- 
tition, so that it is clear how good it 1s. 
If you start with limited tools you can 
do an outstanding job, but who can 
tell? Start with the best tools (would 
you believe Mac? Next year, anyway), 
and then your Herculean effort will be 
seen for what it is. The result: recogni- 
tion, praise, glory. 

Computing is a drug. Some people 
take aspirin to cure a headache, so they 
can get on with what they are trying to 
do. Others pop pills just for the imme- 
diate effects. Drugs have a way of 
growing on you. Once you have free- 
based Unix, it’s pretty hard to go back 
to snorting CP/M. Mac gives a high 
something like Unix—it would be way 
up in the stratosphere if it had better 
software tools, like Unix already has— 
but Mac costs a lot less than Unix: it’s 
affordable. 

Computing is a religion. Centuries 
ago, in the 1940’s, the founders of this 
religion (Turing, Von Neumann, etc.) 
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Take your 
software 


public! 


We’re building a“demo data base” 
of available software for every retailer to access. 
_ We want to add yours to it “ 





Is your software the best kept secret in the industry? 

The Program Finder can give it nationwide exposure! It is a 
unique marketing service that allows your software to be 
featured in a demo-library accessed by a rapidly expanding list 
of retailers coast to coast. 

When a customer is interested in your product category, 
the salesperson dials into our data base using any operating 
computer. Together, they screen through available packages. 
The Program Finder then displays information about you, your 
software, your prices. 

They are then prompted through a demo you have written, 
assuring that your package is properly demonstrated. Included 
in the demo is, of course, how to order your product. 

Don't let your software sit around waiting to be discovered. 

If you've got it, let The Program Finder flaunt it. 


main(_) 

{ printf(‘’Call Mitch Kolesaire, Director of Sales, at\n’); 
printf(‘‘Software Information Systems, Inc.\n”); 
printf(‘’Reach him at %s\n’"’,“.201-882-9141”); 










A: product of Software Information Systems, Inc. 


Circle no. 69 on reader service card. 


brought salvation to the human race, 
entrusting the Holy Truth to a small 
band of devoted disciples. As these 
saints spread the Gospel, great 
churches grew up (IBM, Univac) with 
an ecclesiastical hierarchy (we call 
them “priests” even today). A few ana- 
baptists (the hackers at MIT) nipped at 
their heels, but the Reformation hap- 
pened in Silicon Valley, led by Martin 
“8080” Luther; the doctrine of univer- 
sal priesthood (all believers are priests) 
was once again gospel. 

Not for long. Slowly the encrusta- 
tions of institutional religion again 
took over. Scientific Enlightenment 
(bean counters in three-piece suits) re- 
placed the faith of the Reformation. 
But there is hope! John Wesley and 
Billy Graham sparked revival in Chris- 
tendom; Macintosh is doing the same 
for Computerdom. First Jimmy, then 
Ronnie; now Woz for President! 

The urge to create, the delirious feel- 
ing of power, the longing for praise: 
these are universal human drives, dat- 
ing back to the first rejection of author- 
ity in the Garden of Eden. The first va- 
porware announcement was, ‘You 
shall not surely die, but you shall be like 
gods.”’ Macintosh, is thy name 
Serpent? 


Tiny Hackers: 

a Realizable Fantasy 
by Bob Albrecht 
(with Mike Swaine) 


Ob returns. 


I first used the expression “realizable 
fantasies” in the PCC newsletter back 
before there was a DDJ. Starting next 
issue I’ll be back in the pages of this 
magazine doing a column called “Real- 
izable Fantasies” with Mike Swaine be- 
cause we both think that people doing 
things with computers today need a 
kick in the imagination. The idea of the 
column will be to open discussion each 
month on some project that any fool 
can see is a good idea, but that, for 
whatever reason, nobody is carrying 
out. A public-domain Unix, an open-ar- 
chitecture Macclone, things like that. 
This Festschrift paper can be con- 
sidered the pilot for the series, because 
I have such a realizable fantasy. It has 
a name. I call it Tiny Hackers, and like 
any good fantasy, it wears a different 
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face every time I look at it. Its origin 
goes back to before DDJ, back to the 
early sixties when I started teaching 
kids to play with computers. It recently 
got rekindled by listening to Brian 
Harvey, at the Hackers’ Conference 
you re hearing so much about in this 
issue, talking about passing on knowl- 
edge to a new generation of hackers. 

I have been working with kids and 
computers since 1962. I wasn’t really 
having a good time in life until I began 
teaching kids about computers. I now 
work with tiny kids three to six years 
old, helping them to play with comput- 
ers, although most of them are not, 
strictly speaking, hackers. 

My corporation, Dragonquest, 
works with the East Menlo Park Boys’ 
Club. Boys’ Clubs are an ideal place 
for hackers who want to bring wonder- 
ment to kids. They are open to girls as 
well, and there are also Girls’ Clubs. If 
kids are going to do things with com- 
puters, they’re going to do so at home 
or at places like the clubs, not in the 
schools, which are the last place you’re 
going to see any hacking. The stuff 
they're doing in schools is dreadful. 

Around 1981 we started Computer 
Kids, of which Tim Finger is the direc- 
tor. With Computer Kids, we’re bring- 
ing such things as programs that teach 
touch typing into the clubs. Once 
somebody gets comfortable with using 
the machine to store and print words, 
it’s only a short step to seeing the possi- 
bility of putting your thoughts into 
words and printing many copies and 
distributing them; and that’s a news- 
letter. We'd like to explore the possi- 
bility of kids in the Black community 
getting into self-publishing and using 
the newsletter to find out what’s going 
on around them. 

I want to bring tools to these kids, 
powerful tools. Future tools. Impor- 
tant tools. Once they have those tools, 
some of them are going to become the 
next generation of hackers; they will be 
the kids who redefine the word hacker. 

What kind of tools should they 
have? Is there a Tiny Hackers’ ma- 
chine? Cheap, powerful, designed so 
small children can use it effectively 
and artfully? 

If you dig through back issues of 
Rainbow, a magazine for users of the 
Radio Shack Color Computer, you can 
find a wealth of tips for turning the 


Color Computer into a system with 
Surprising programming power, like a 
cheap 128K upgrade. I priced out a 
system: $750 will give you a Color 
Computer with O/S-9, a Unix-like op- 
erating system. There is a Basic com- 
piler available, a Pascal compiler and a 
C compiler. That’s one possibility for a 
Tiny Hackers’ machine. [ Radio Shack 
may in fact bring out a Color Comput- 
er in 1985 with 128K RAM, an RGB 
monitor and O/S-9 in ROM. —Ed. | 

But there are other possibilities. 
Now is the time for somebody to have 
the courage to produce a home com- 
puter with Logo built in. With sprites. 
Kids don’t give a damn about turtle 
graphics, but they love sprites. And a 
touch pad and a keyboard with keys in 
alphabetical order so the kids can find 
the letters. The Qwerty layout is about 
as easy to use as if the letters were dis- 
tributed randomly. Why put barriers 
like that in kids’ way? 

It would be great to see kids in the 
clubs building Lee Felsenstein’s pro- 
posed Hackers’ Macs from kits. 

So that’s the realizable fantasy: 
Tiny Hackers. It’s a confluence of 
ideas that could split off into many 
streams: projects, columns, newslet- 
ters. One of the forgotten motivations 
behind the original Tiny BASIC was 
that it be a language for tiny people. 
Maybe we still need a tiny language. If 
you are interested in the next genera- 
tion of hackers, if you think that we 
need home machines with sprite chips 
or that computers for kids should use 
random number generators that return 
integer values, consider DDJ a forum 
for bringing the issues forward. 

I am starting a small, personal news- 
letter called Dragonsmoke, and I sus- 
pect that some of these issues will also 
come up there. The focus will be on 
whatever Dragonquest is up to, includ- 
ing the work at the Boys’ Clubs. If 
you'd like to be on the mailing list, 
send an SASE to PO Box 310, Menlo 
Park CA 94026 (that’s the original 
1976 DDJ PO box). 

But the thing I’d most like to see is 
for some of DDJ’s readers to do some- 
thing good for a Boys’ Club or Girls’ 
Club. Dig out those old Sols and Im- 
sais. Better yet, give time. DD} 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 192. 
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Dr. Dobbs says, 


“WE HAVE 
GOOD NEWS... 





“WINDOWS FOR € can offer you a convenient and reliable 
means of implementing windows in your text-handling programs... 


“The video output is fast and clean, showing no snow 
with either the graphics or monochrome display. 


“WINDOWS FOR C is documented in well-written 
and readable English, and it appears to be all there. 


“WINDOWS FOR C...is a very nice software package that has 
obviously been well thought out and very cleanly executed. 


“WINDOWS FOR C is a professionally-oriented set of 
programming tools...that we can recommend.” 


Full support for: 
@ IBM PC/XT/AT plus 
compatibles 


@ All memory models of 
Lattice C, CI-C86, Mark Wm. C, 
Aztec C, Microsoft C, Desmet C 
(PC/MSDOS) 


Plus: 


@ NEW: Driver interfaces for 
non-IBM displays 


@ Full source available 























_ lan Ashdown (Dr. Dobb’s Journal, November 1984) 


More than a window display 
system, WINDOWS FOR C is a video 
toolkit for all screen management 
tasks. 

C SOURCE is provided for pop-up 
menus, viewing of multiple ASCII 
files within multiple windows, cursor 
control for vertical and horizontal 
scrolling, label printing, and text- 
mode bar graphs. 

An object-code library of over 
90 fully documented building-block 
subroutines allows you to construct 
functions to suit your needs. 

Once you’ve used WINDOWS 
FOR C, you will wonder how you 
managed without it. 


The Good News... 
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ADVANCED SCREEN MANAGEMENT 


With WINDOWS FOR C you can: 


e Establish any number of windows; 
clear, write, and control attributes 
of each window independently; write 
with word wrap and auto scroll; 
control all IBM color capabilities. 


e Overlay and then restore screens, 
highlight selected text, format and 
print with windows, and save win- 
dows to memory or disk. Memory 
management is automatic. 


Don’t wait. Order now. 





WINDOWS FOR C $195 
(specify compiler & version) 
Demo disk and manual $ 30 


(applies toward purchase) 
Dealer inquiries welcome 


A PROFESSIONAL SOFTWARE TOOL FROM 


CREATIVE SOLUTIONS 


21 Elm Ave., Box D12 e Richford, VT 05476 


Circle no. 27 on reader service card. 


802-848-7738 


Master Card & Visa Accepted 
Shipping $2.50 
VT residents add 4% tax 
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There was a strong feeling [at the Homebrew Club] that we 

were subversives. We were subverting the way the giant cor- 
porations had run things. We were upsetting the establish- | 
ment, forcing our mores into the industry. I was amazed 

that we could continue to meet without people arriving with 
bayonets to arrest the lot of us. 
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Keith Britton 


The Homebrew Computer Club 
Felsenstein and Marsh weren’t there during Homebrew’s 
: gestation. Early in 1975, a number of San Francisco Bay 
Strange things happen Area counterculture information exchanges existed for peo- 
' ° ple interested in computers. Community Memory was one. 
when hackers § et organized. There was also PCC [People’s Computer Company] and the 
; PCC spin-off, the Community Computer Center. In addi- 
tion, peace activist Fred Moore was running a non-comput- 


ah gat erized information network out of the Whole Earth Truck 
ees ff Store in Menlo Park, matching people with common inter- 
peRi- eo ests about anything, not just computers. Moore became in- 
f° eer terested in computers when he realized he needed a machine 
eae and a base of operations, and he talked to Bob Albrecht at 
cae - PCC about both. Soon, Moore was teaching children about 

se computers and learning about them himself. 


At the same time, Albrecht had been looking for someone 
to write certain assembly language programs and found Gor- 
don French, a mechanical engineer and computer hobbyist, 
who then supported himself building slot car motors. 

When the Altair story appeared in Popular Electronics, 
the need for a more direct information exchange became 
clear. The PCC people took the Altair seriously from the 
beginning. Keith Britton, a demolition consultant and PCC’s 
treasurer, thought its arrival foretold the eventual demise of 
the computer priesthood. “‘All of us were champing at the bit 


Michael Swaine, Editor-in-Chief of DDJ 
Paul Freiberger, West Coast Editor of Popular Computing 
From Fire in the Valley: The Making of the Personal Com- 
puter. Copyright 2/3 1984 by McGraw-Hill, Inc. Used with 
the permission of Osborne/McGraw- Hill. 
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Photo 1 
Gordon French, one of the founding members, addressing a meeting of the Homebrew Computer Club in 1979 


to get an Altair,” French recalls. So Fred Moore pulled out 
his list of the computer curious, the revolutionaries, the 
techies, and the educational innovators, and sent out the call. 
“Are you building your own computer? Terminal? TV 
Typewriter? I/O device? Or some other digital black box? 
Or are you buying time on a time-sharing service?” Moore’s 
flyer asked. “If so, you might like to come to a gathering of 
people with like-minded interests. Exchange information, 
swap ideas, talk shop, help work on a project, whatever.” 
The announcement tentatively called the group the Amateur 
Computer Users Group or Homebrew Computer Club, and 
it met on March 5, 1975, in Gordon French’s garage. 

Felsenstein read about the upcoming meeting and intend- 
ed not to miss it. He collared Bob Marsh and they drove in 
Felsenstein’s pickup truck through the rain across the Bay 
Bridge to the peninsula that stretches from San Francisco in 
the north to Silicon Valley in the south. Gordon French lived 
in suburban Menlo Park, a town jogging distance from Stan- 
ford and right on the edge of Silicon Valley. 

At the first meeting, Steve Dompier reported on his visit to 
Albuquerque. MITS had shipped 1500 Altairs and expected 
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to ship 1100 more that month. The company was staggering 
under the weight of the orders and couldn’t begin to fill 
them, Dompier said. Bob Albrecht displayed the Altair that 
PCC had received that week—PCC was just behind Harry 
Garland and Roger Melen, over at Stanford, on MITS’s 
list—and passed out the latest issue of PCC. 

Dompier, like Marsh and Felsenstein, had driven down 
from Berkeley, but most of the 32 or so attendees were from 
the San Francisco Peninsula. Albrecht and Gordon French, 
who chaired the meeting, and Fred Moore, who took notes 
for a newsletter, and Bob Reiling, who soon took over that 
newsletter, all lived in Menlo Park. Many other people had 
come from farther south—from deeper into Silicon Valley: 
Mountain View, Sunnyvale, Cupertino, San Jose—people 
like Allen Baum, Steve Wozniak, and Tom Pittman, who 
described himself as a microcomputer consultant, perhaps 
the first in the world. 

As the meeting concluded, one Homebrewer held up an 
Intel 8008 chip, and asked who could use it, and gave it 
away. Many people present that night sensed the opportuni- 
ty in this Homebrew spirit and in Dompier’s words. One of 
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them was Bob Marsh. Marsh went immediately to see Gary 
Ingram about forming a business enterprise. I’ve got a ga- 
rage, he said. It seemed enough. They decided to call them- 
selves Processor Technology, or Proc Tech. Marsh designed 
three plug-in circuit boards for the Altair: two I/O boards 
and a memory board. They looked good, he thought. He 
devised a flyer announcing Proc Tech’s products, made hun- 
dreds of copies of it on a campus photocopying machine, and 
took 300 of them to distribute at the third meeting. 

By this time the club was flourishing. Fred Moore was 
exchanging newsletters with Hal Singer, who put out the 
Micro-8 Newsletter in Southern California and had formed 
a Micro-8 club shortly after Homebrew started. Other publi- 
cations were passed around. PCC and Hal Chamberlain’s 
The Computer Hobbyist attracted special interest. A Den- 
ver organization identifying itself as a provider of support for 
Micro-8 and TV Typewriter hobbyists and calling itself The 
Digital Group offered subscriptions to its newsletter. The 
movement was getting hard to keep up with. Intel, with its 


Photo 2 
Chuck Grant and 
Mark Greenberg, 
founders of Ken- 
tucky Fried Com- 
puters and North 
Star Computers, 
with a NorthStar 

Horizon 


4004, 8008, and 8080 chips, and at least 15 other semicon- 
ductor manufacturers had introduced microprocessors into 
the market, and the newly formed club tried to keep its mem- 
bers informed about them all. 

The third Homebrew meeting drew several hundred peo- 
ple, too many for Gordon French’s garage. It was moved to 
the Coleman mansion, a Victorian building serving as a 
schoolhouse. There Marsh gave a brief talk, explaining that 
he was selling memory and I/O boards for the Altair. He 
hoped to present Proc Tech as a serious company, not just 
the fancy of an unemployed electronics engineer with access 
to a copying machine. He offered a 20% discount for cash 
prepayment. To his disappointment, no one came to talk to 
him at or after the meeting. 
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The next week the first order arrived. Garland and Melen 
were seeking Processor Technology’s cheapest advertised 
product. Their request was written on the stationery of their 
new company, Cromemco. They sent no check, just a pur- 
chase order requesting 30 days net credit, hardly what 
Marsh had expected. He had made Proc Tech look like a real 
company, all right. 

After the Cromemco order, many others followed, most 
enclosing cash. Ingram fronted $360 for an advertisement in 
Byte. With the cash streaming in, Marsh and Ingram could 
afford to advertise in Popular Electronics, and they did, 
spending $1000 for a one-sixth-page ad. They incorporated, 
and Ingram was made president. As corporate headquarters 
and factory, they had half of an 1100-square-foot garage, no 
products, no schematics for proposed products, no supplies, 
no employees, and thousands of dollars in cash orders. It was 
beginning to appear that they had some work ahead of them. 

Meanwhile, Lee Felsenstein was getting more involved 
with Homebrew. He took over from Gordon French as the 





master of ceremonies—he refused to think of himself as a 
chairman. The meetings were now held in the auditorium at 
the Stanford Linear Accelerator Center. Over the years, Fel- 
senstein became intimately associated with the club and fos- 
tered its anarchic structure. The group had no official mem- 
bership, no dues, and was open to everyone. Its newsletter, 
offered free after a nudge from Felsenstein, became a point- 
er to information sources and a link between hobbyists. As 
group toastmaster, Felsenstein performed with a curious 
kind of populist showmanship. As one attendee, Chris Es- 
pinosa, said, “People call him the Johnny Carson of Home- 
brew, but he’s more than that. He kept order, he kept things 
moving, he made it fun to go to the meetings. There were 750 
people in that room at one time, and he worked it like a rock 
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concert. It’s hard to describe, but to see him work a crowd 
like a Baptist preacher. ... He was great.” 

The meetings didn’t follow Robert’s Rules of Order with 
Felsenstein running them: he gave them their own special 
structure. First came a mapping session, during which Fel- 
senstein recognized people who briefly proffered their inter- 
ests, questions, rumors, or plans. Felsenstein sometimes had 
quick answers to their questions or witty comments on their 
plans. A formal presentation followed, generally of some- 
one’s latest invention. Finally, there was the Random Access 


session, in which everyone scrambled around the auditorium | 


to meet those they felt had interests in common with them. It 
worked brilliantly, and numerous companies were formed. A 
remarkable amount of information was exchanged at those 
meetings, and much information had to be exchanged; they 
were all in unfamiliar territory. 

About this time, a San Francisco branch of Homebrew 
started. It held its first meeting at the Lawrence Hall of 
Science in Berkeley. Although it was called the San Francis- 
co branch, Berkeley was a logical place for it to meet. Uni- 
versities were becoming hotbeds of self-taught microcom- 
puter expertise. Professors with grant money now found it 
cost-effective to buy minicomputers rather than buy time on 
the university mainframe computer, which was invariably 
out of date and overworked. DEC was selling PDP-8 and 
PDP-11 minicomputers to professors as fast as it could build 
them. They were particularly popular in psychology labs, 
where they were used for experimenting on human subjects, 
automating rat and pigeon labs, and analyzing data. The 
invasion of the psych lab by minicomputers created a new 
kind of expert: one who might know something about psy- 
chological research, but who was more clearly a hacker and 
a computer nut—someone to figure out how to run the com- 
puter and make it do what professors, who were generally 
ignorant about the machine, wanted. 

Howard Fulmer was such a person. Fulmer worked in the 
Psychology Department at UC Berkeley running PDP-1|s, 
selecting minicomputers for professors to buy, building in- 
terfaces, and programming experiments. In early 1975, one 
of Fulmer’s professors bought an Altair, and Fulmer learned 
to use it. Soon after, Fulmer left his job to devote more time 
to microcomputers. 

He was not alone: the Altair raided the University of Cali- 
fornia at Berkeley. George Morrow, a graduate student in 
math, worked at the university's Center for Research in 
Management Science with two other students, Chuck Grant 
and Mark Greenberg. They were trying to develop a lan- 
guage to use with a microprocessor in computer-controlled 
research. 

Morrow, Grant, and Greenberg found that they worked 
well together. All three were perfectionists, although in dif- 
ferent ways. Morrow, thin, prematurely balding, and with a 
twinkle in his eye and an irrepressible wit, seemed always to 
be enjoying himself, perhaps especially when he was hard at 
work. Grant and Greenberg appeared cut from a darker 
cloth. They were more businesslike. Although Grant and 
Greenberg often attended Homebrew meetings and profited 
from the free, open exchange of information, they never con- 
sidered themselves part of the hobbyist community. Techni- 
cally, the three formed a good team. Morrow knew hard- 
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Photo 3 


George Morrow ina pose for an early advertisement 


ware, Grant preferred software, and Greenberg was at home 
with either. 

The trio considered making boards for the Altair or even a 
kit computer of their own. They knew that they were a good 
design team, but they also knew they lacked sophistication in 
marketing. So Morrow sought the advice of Bill Godbout. 
Middle-aged, blunt, opinionated, with a paunch that he 
joked about and an airplane that he flew stunts in, Godbout 
was the electronics distributor whom Bob Marsh had tried to 
interest in his walnut digital clock when he and Felsenstein 
had first worked in the garage. Morrow told Godbout about 
their plans. 





Photo 4 
Steve Dompier, Bob Marsh, and Lee Felsenstein at a meeting of 
Processor Technology dealers in 1979. 
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Godbout was then selling chips and minicomputer memo- 
ry boards by mail, and Morrow asked if he intended to sell 
Altair memory boards. Godbout scoffed. He wouldn’t so dig- 
nify the product, he said. Morrow wondered if he might be 
interested in distributing a good computer, the creation of a 
top-notch design team. “You guys?” Godbout asked. He 
looked Morrow over. Godbout believed he was good at sizing 
people up, and Morrow looked all right. They agreed to split 
profits down the middle and shook on it. No written con- 
tract, Godbout said. Written contracts were a sign of mis- 
trust and an invention of lawyers, and if there was anybody 
Godbout didn’t trust, it was a lawyer. 

By this time a motley group of engineers and revolutionar- 
ies had assembled in Silicon Valley in the infancy of a bil- 
lion-dollar industry: irascible Bill Godbout, who suspected 
lawyers; ex-Berkeley Barb technical editor and current 
Homebrew toastmaster Lee Felsenstein; Bob Albrecht, who 
left a high-paying career to teach children about computers, 
who smoked cigars, and called himself “The Dragon”; Bob 
Marsh, testing his own abilities, turning his love for electron- 
ics into a garage corporation; and Keith Britton, who saw 
himself and the other Homebrewers as pivotal in “‘an equiva- 
lent of the industrial revolution but profoundly more impor- 
tant to the human race.” A surprising number of them held 
political views that would have shocked the local Rotary 
Club, and almost all had no love for IBM and the computer 
establishment. But they and others like them were pulling 
off the most startling entrepreneurial achievement in recent 
times. And much of the action took place at Homebrew. 

The Homebrew Computer Club was not merely the 
spawning ground of many Silicon Valley microcomputer 
companies. It was also the intellectual nutrient in which they 
first swam. Presidents of competing companies and chief en- 
gineers would gather there to argue design philosophy and 
announce new products. Statements made at Homebrew 
changed the directions of corporations. Homebrew was a 
respected critic of microcomputer products. The Home- 
brewers were sharp, and could spot shoddy merchandise and 
items that were difficult to maintain. They blew the whistle 
on faulty equipment and meted out praise for solid engineer- 
ing and convivial technologies. Homebrewers soon developed 
the power to make or break new companies. In part due to 
Lee Felsenstein, Homebrew encouraged the conviction that 
computers should be used for and not against people. Home- 
brew thrived in a kind of joyous anarchy, but the club was 
also an important step in the development of a multi-billion 
dollar industry. Processor Technology was one of the chil- 
dren of Homebrew. 


The first part of the meeting we were involved in open com- 
bat with Intel. Intel was out to torpedo any standardization 
effort on the S-100 bus. 


George Morrow 


Home Rule 

A continuing fear in the developing microcomputing indus- 
try was that “the big boys” would come in and spoil all the 
fun. Sometimes “the big boys” meant IBM and the other 
mainframe computer and minicomputer companies; some- 
times it meant Texas Instruments, Commodore, and the 
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other electronics companies that had waged Pyrrhic price- 
cutting wars in the calculator industry; especially it meant 
Texas Instruments, known for its ruthless price-cutting. Lee 
Felsenstein summarized the dread of the hobbyist entrepre- 
neurs: “Anyone but TI!” Intel and some of the other semi- 
conductor companies, although well situated to produce mi- 
crocomputers from their own chips, had expressed 
reluctance to do anything that could be construed as compet- 
ing with their own customers, and the hobby-born micro- 
computer companies had developed enough clout by this 
time to be taken seriously as semiconductor customers. 

In December of 1976, Commodore International, an elec- 
tronics firm with a lot of market muscle, leaked information 
to Electronic Engineering Times about a new product. Com- 
modore, the story went, was ready to release a machine very 
much like a low-cost Sol. Proc Tech was just shipping the 
first Sols and Marsh was thinking about the company’s next 
product, a new version of the Sol with an integrated key- 
board and 64K of memory, that would be cheap at $1000. It 
was, unfortunately, essentially the Commodore machine. 

Convinced that Commodore actually had the computer on 
the launch pad and that Proc Tech could never compete with 
it, and even more worried by news that National Semicon- 
ductor was also planning a microcomputer, Marsh scrapped 
the project. The laws of battle in the semiconductor wars five 
years earlier had been to cut prices to the baseline and push 
the technology madly, even under threat of corporate extinc- 
tion. Proc Tech couldn’t compete with National, especially 
in mortal combat. But in fact the Commodore machine 
would not appear for some time, and the National computer 
never materialized at all. 

Many new hobbyist-born companies were starting to man- 
ufacture microcomputer products, but most of these were 
turning out boards for the Altair or IMSAI, and practically 
all were small companies, start-ups like Proc Tech. 

Howard Fulmer began such a firm in his Oakland base- 
ment. After reading an editorial by Ed Roberts in Dave Bun- 
nell’s Computer Notes that attacked the compatible board 
companies as “parasites,” he considered calling his own 
company Symbiotic Engineering to emphasize his concep- 
tion of the proper relationship between MITS’s products and 
his own. But a group called the Symbionese Liberation 
Army was making a name for itself then, and he wanted to 
avoid confusion. He called his company Parasitic 
Engineering. 

George Morrow and Howard Fulmer were both designing 
Altair-compatible products, and in the spring of 1977 decid- 
ed to build a computer together. Morrow would supply 
Fulmer the boards he had designed at a cheap price, and 
Fulmer would devise the remainder of the computer. Fulmer 
called it the Equinox 100. It was a solid design, for they had 
listened to the ideas of Bob Mullen, one of the founders of 
Diablo Systems, a Silicon Valley disk-drive manufacturer, 
and of Bill Godbout about improving the S-100 bus. 

The timing of the machine’s release was unfortunate 
though. The Equinox was an 8080 machine, and Technical 
Design Labs in New Jersey, Garland and Melen’s Cro- 
memco, and The Digital Group in Denver were all known to 
be designing computers based on the new and apparently 
better Z80 chip. Cromemco had already produced a Z80 
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central processor board, and hobbyists were dropping it into 
the IMSAI chassis to create a mongrel Z80 machine. 

Marsh wondered if Proc Tech shouldn’t do a Z80 machine 
as well. But it seemed irrational to dump a successful design 
to achieve a marginal improvement in performance. Besides, 
the processor mattered much less than the software, he be- 
lieved. The software made the computer work, and that 
would distinguish one machine from another. 

Proc Tech called two programmers, Jerry Kirk and Paul 
Greenfield of MicroTech in Sunnyvale, who had produced 
high-level language compilers for minicomputers. They were 
hired to create a set of programmer’s tools, programs that 
would make it easier to write, edit, and debug other pro- 
grams on the Sol. Ingram developed their work into Soft- 
ware Package One. 

Ownership of software was an inflammatory issue in the 
Valley and elsewhere. Proc Tech was aggressively pro-pira- 
cy, and its hobbyist founders swapped program tapes at Ho- 
mebrew meetings along with everyone else. Gordon French, 
who after helping to start Homebrew had become Proc 
Tech’s General Factotum (his official title), argued for an 
open system, that is, free dissemination of software code and 
internal workings to everyone. He wanted outside program- 
mers and peripheral manufacturers to be able to create com- 
patible products and expand the market. At that time, Ed 
Roberts and the entire mainframe and minicomputer indus- 
try held the opposite view. But the hobbyists were bringing 
their own values into their industry. An open architecture, 
the publicly known physical design of the machine, was one 
emerging ideal. An open operating system was another. But 
at Proc Tech the idea of an open operating system was 
frowned upon. Marsh and Ingram wanted a proprietary op- 
erating system. 

In fact, Proc Tech had its own disk operating system very 
early on. The company bought PTDOS from its author, 19- 
year-old Bill Levy, who developed it at the Lawrence Hall of 
Science at Berkeley. Levy modeled PTDOS after Unix, a 
mainframe/minicomputer operating system in use at UC 
Berkeley. Marsh thought PTDOS much better than CP/M, 
but PTDOS was slow to reach the market because of “the 
drive fiasco.” 

Disk drives posed an alluring challenge in 1976, when the 
Sol was released. They existed and were used heavily in 
mainframe and minicomputers, but to mount a disk drive on 
a microcomputer was prohibitively expensive. Drives typi- 
cally cost $3500. So Marsh was very intrigued when George 
Comstock, Bob Mullen’s partner at Diablo Systems, de- 
clared at Homebrew one night that he wanted to develop a 
disk drive for microcomputers. Comstock thought that a 
drive, complete with a controller board and software, could 
be sold for about $1000. 

But Diablo was not then involved in the growing micro- 
computer industry, and Comstock felt a disk-drive system 
would only flail around without close consultation with mi- 
crocomputer companies. He later proposed a joint effort to 
Marsh. Diablo would develop the drives, the physical mecha- 
nisms that read and write information from and to disks, and 
Processor Technology would write the software and develop 
an S-100 board to control the drives. He also proposed that 
Proc Tech could market the board on its own. 
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Disk drives were so clearly destined to belong in any seri- 
ous microcomputer system that engineers were already vy- 
ing to develop a low-cost drive system with software and a 
controller board. Shugart’s 54-inch drives seemed attrac- 
tive, but they had one drawback. IBM had been using 8-inch 
drives and had established certain standards for the devices. 
There were no standards for small disk drives and no guaran- 
tees that disks written on one brand of machine would be 
readable on another. North Star had selected the Shugart 
drive and sold it for under $800. Using an idea of Eugene 
Fisher’s of Lawrence Livermore Labs, both Morrow and San 
Francisco engineer Ben Cooper had begun developing rela- 
tively low-cost 8-inch disk drives. Cooper had perhaps the 
first commercial 8-inch disk controller for microcomputers. 
Morrow, shortly thereafter, had the first one available for 
the $1000 price Comstock was aiming for, and he negotiated 
with Digital Research and Microsoft for an operating system 
(CP/M) and BASIC to distribute free with the drive system. 
Both Morrow and Cooper continued to develop significant 
disk products, and Cooper created the first hard disk control- 
ler for microcomputers. 

But at Proc Tech, the disk drive plans were crumbling. 
Diablo encountered trouble with the drives and dropped the 
project, leaving Proc Tech so far into development of the 
controller that it had to continue. Marsh and Ingram raised 
the price of the system to $1700 and substituted a more 
expensive drive offered by Perscii. The price was too high, 
and Proc Tech’s drives didn’t always work. Customers could 
find better deals from Cooper, Morrow, and North Star. 

Despite such problems, Proc Tech seemed to be thriving. 
The executives were recycling their profits into the company. 
(Lee Felsenstein was investing his in the Community Memo- 
ry project.) The Proc Tech staff in Emeryville now num- 
bered 85, not counting non-employee/consultant Felsen- 
stein, and headquarters was growing crowded. That year, 
1977, Proc Tech moved south to the bedroom community of 
Pleasanton. The new offices boasted a spacious executive 
suite with large windows looking out over the valley. 

But there was competition. As 1977 came to an end, Proc 
Tech found itself in a more serious industry. The trading of 
information, the shirt-sleeve management, the flashes of ide- 
alism, and the lack of detailed planning that had character- 
ized the industry from the start still existed. The chief users 
and the designers and company presidents were still hobby- 
ists at heart, and most of the world knew nothing of the 
revolution that was afoot. But new companies were emerging 
like mushrooms overnight. Among the computer and com- 
puter-related companies at the end of 1977 were Apple 
(which some insiders thought had great promise), Exidy, 
IMSAI, Digital Microsystems, Alpha Micro Systems, Com- 
modore, Midwest Scientific, GNAT, Southwest Technical 
Products, MITS, Technical Design Labs, Vector Graphic, 
Ithaca Audio, Heathkit, Cromemco, MOS Technology, 
RCA, TEI, Ohio Scientific, The Digital Group, Microma- 
tion, Polymorphic Systems, Parasitic Engineering, Godbout 
Engineering, Radio Shack, Dynabyte, North Star, Morrow’s 
Microstuff, and, of course, Processor Technology. 

Many companies were located in the Bay Area and were 
associated with the Homebrew Club. The club had become 
large, and by 1977 tended to assemble in fairly predictable 
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groups. In front, performing, was Lee Felsenstein. Bob 
Marsh and the Proc Tech group were usually assembled 
along one wall. Steve Wozniak and the boys from Apple and 
the other 6502 processor fans sat in the back. Jim Warren of 
Dr. Dobb’s sat on the aisle three seats from the back, stage 
left, ready to stand during the mapping session and do his 
Core Dump, an extemporaneous outpouring of all the news 
and rumors he had heard. The front row always had Gordon 
French, who maintained the software library, and Bob Reil- 
ing, who wrote the newsletter. 

In December 1977, Reiling wrote, “The development of 
special-interest groups has probably been the biggest change 
during the past year. At the beginning of the year the 6800 
group was holding regular meetings. At the end of 1977, the 
groups include not only the 6800 group, but also the F8 
Users, North Star Users Group, Sol Users Society, and PET 
Users.” At that time, the Homebrew attendees (the club did 
not have members) included key people from Apple, Cro- 
memco, Commodore, Computer Faire, Dr. Dobb’s, Itty Bit- 
ty Computers, M&R Enterprises, Mountain Hardware, 
IBEX, Mullen Computer Boards, North Star, PCC, Proc 
Tech, and the Bay Area computer stores. The most signifi- 
cant of these then was Proc Tech. Marsh had, to some ex- 
tent, realized his dream. The company seemed to be doing 
very well. 

And in December, Reiling could report optimistically, 
“The IEEE now has a standards group to sort out the various 
hardware and software standards.” That blithe statement 
subsumed a wrangling struggle and a remarkable achieve- 
ment which brought new legitimacy to the industry. The 
sorting out had been no simple matter. 

Bob Stewart was a consultant in optics and electronics and 
a member of the Institute for Electrical and Electronics En- 
gineers (IEEE). He had bought an Altair and had become 
frustrated with it. At a meeting at Diablo Valley College to 
discuss the S-100 bus he met some company presidents: Har- 
ry Garland of Cromemco, Howard Fulmer of Parasitic Engi- 
neering, Ben Cooper of Micromation, and George Morrow 
of what he was then calling Thinkertoys. Byte’s Carl 
Helmers was also there. The idea was to cure the obvious 
problems of the bus and to establish common standards, so 
that one company’s board would work with another’s. Gar- 
land explained the virtues of his and Melen’s shielded bus, 
but Morrow thought he had a better approach. No immedi- 
ate agreement was forthcoming. Stewart suggested creating 
an official IEEE standard for the bus. With the group’s en- 
couragement, he petitioned the IEEE to form a microcom- 
puter standards subcommittee of the computer standards 
committee. The petition succeeded, and the group became 
official. 

Roberts was invited to participate in the microcomputer 
standards subcommittee, but declined to send a representa- 
tive or even to respond directly. He did say in print that he 
felt MITS had the sole right to define the bus. The subcom- 
mittee ignored him. At first, the meetings involved conten- 
tion with Intel, which fought standardization. Morrow got 
the impression that Intel wanted no standards unless Intel 
was setting them. But when the subcommittee decided to 
formulate standards whether Intel liked them or not, Intel 
acquiesced. This was outrageous cheek. A bunch of hobby- 
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ists turned entrepreneurs had simply ignored the biggest mi- 
crocomputer company of that time and had faced the lead- 
ing chip manufacturer and not been struck by lightning. 

In spite of its solidarity, the subcommittee had no guaran- 
tee that it could really create standards. The subcommittee 
had 15 assertive, opinionated people disputing an issue about 
which they held legitimate and conceivably irresolvable dif- 
ferences. Each of the members had a product that would be 
incompatible with anything likely to be proposed. As the 
meetings went on, Roger Melen came in for Cromemco. Al- 
pha Micro was represented. Elwood Douglas appeared for 
Proc Tech and judged the standard against the memory 
board he was designing. George Millard spoke for North 
Star. Someone arrived from IMSAI to read its formal posi- 
tion, which resembled Ed Roberts’. The subcommittee ig- 
nored that position too. Most of its members had written 
IMSAI off as a place where training in est mattered more 
than training in engineering. 

At times the subcommittee members weren’t too fond of 
each other. They argued for hours, with no one yielding an 
inch. They would then return to their companies and discuss 


how to compromise their own designs to achieve a standard. 


At the next meeting, they would find themselves closer to 
agreement. Little by little, these creative, independent peo- 
ple subordinated their egos and short-term economic gains 
for the good of the entire microcomputer field. 

The committee was attempting guerrilla design. In main- 
frames and minicomputers, the bus was always whatever the 
bus designer said it was. Although the IEEE suggested subtle 
variations in tolerance during the process of formalizing the 
company bus into a standard, independent committees did 
not assemble to redesign the whole bus. Timing parameters 
and other features were dictated by the companies. IBM and 
DEC worked this way. In a way their method was certainly 
easier than communal design. But the S-100 committee 
members dug into the Roberts bus, figured out how it 
worked, and were scrapping it in favor of a new, independent 
bus open to all. This was a populist revolt against the tyranny 
of the big company, with MITS hoisted as a poor but ade- 
quate symbol of the big company. The revolution was 
succeeding. 
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4164- +5v 64K 200 ns. ... 8/32.00 
SIG DWE kee besa 
TMS4416-16KX4-150 nis. .... 5.25 
MK4516-15 16KX1-5Volt .... 1.50 
5280N-5 (2107B-4 * TMS4060) 

| ts en ee 
412956 150 1.8. ... wns ees 8/165.00 


SPECIAL 


AY3-8910 
W/60 Page Manual 
New Price — $7.00 


5832 Clock-Calendar 





P. 0. Box 280298 Dallas, Texas 75228 


—— ) 


(214) 271-5546 





20.00 8085 5.95 


4.50 8086-2 
4.50 8087-3 
1.25 8088 


8255-5 
8257 

8259A 
8259C-5 
8275 1 
8284 

8287 

8288 


8202A 
D8203-1 
8212 
8214 
8216 
8228 
8237-5 
8250B 
8251 


700 2.0 MA GPU os 
Z80CTC 
Z80DMA-DMA .............. 
Z80PIO 
Pac OS A rr 
Z80A-4MHZ CPU ........... 
Z80A-CTC 
WEE. Sex ay « cede ere es 
Fat i) eo SS ae ar 
REO 82 5 en Pn ome wns Ses 
CO SU Oe 8c. Gy ne 0g oes Y 
Z80B 6 MHZ CPU 


1771 Single Density 
1791 Double Density ....... 


24.95 
159.00 
15.00 


5.00 
6.00 
3.50 
5.00 
9.95 
3.20 
3.20 
7.50 


CONTROLLER SET 


THREE CHIP SET 


1797 or 1793, 2143-03, 1691 


by W.D. Compare at up to 86.85. 


B.G. SPECIAL 
All 3 for only $22.95 


_TR1602B (COM 2017) ...... 
IM6402-(1863)+5v High speed 
AY5-1013 pinout ......... 
INS 8250B 


6840 
6845P 
6845S 
6850 
68A09EP 
68A21 
68B45 


6502 2.60 6545 
6522 6.95 6551 


SPECIALS 


MVS a6, ot eve 8's 6, © 6 6 Cie! @ S “eL,8) @ 


NON OGUOh 
onowoun 
SouNownooed 


S2tstes were we 6 Se Se Bre sé 


Ks e—s tase eh we Ss + Be. C Din 


© Se 8 BiWh6 1 Cen. a ce ww DG iete, we # 


10.00 
7.50 


7.50 
2.60 
4.99 


3.00 
10.00 


5.00 
5.00 


! 
VISA SeRess ws 
Werks : 


SOCKETS 


Low Profile SOLDER TAIL 
6 Pin 14/1.00 
8 Pin 13/1.00 

14 Pin 10/1.00 
16 Pin 8/1.00 
18 Pin 8/1.00 
20 Pin 7/1.00 
22 Pin 7/1.00 
24 Pin 6/1.00 
28 Pin 6/1.00 
40 Pin 5/1.00 


BUY $10 
GET $1.00 - FREE CHOICE 


2114 SPECIAL! 


COMPUTER 
MANUFACTURERS 
EXCESS INVENTORY 
SALE! 
PRIME! 2114-300 n.s. 
INCREDIBLE PRICE! 


YOU SAVE! 
8/$8.00 


GUARANTEED 


HUES 


& oly ee we Se 
& $e Sees tS Be Be Se ae Ss 0 
© @ ge a 6 Ghpee e) 6 eh oe, oe he ed Kite 


eae, WHE Sok vo eG ah Paes ‘ 
1.8432 
ay dias wees fA ay be 


8 eH Corre ours ier ens 6:r o> Lae 8 6 Se oF 


SPO site 5 sis Sg ae : 
4.000 
VO oe ns ridges ‘nt eh gp oe whe 


EGA CS jae oe Ga Rhias 2 antsy cory : 
Cee Shel ss UES RED a P45 1.49 


ene @ ole 6 6 6 St 6 & e18 Gerd Sith er et aw 
slow 0 '¢ te 0 ot mw ele 46 CT gi-w ee 
eo ef: & 8 6 CC 6 le he oO wi 0) 6 LO. OP 
eeoe woe eto eK ee Sw 6 6 He @ © 

eH '6 ee as we ow 6 we Sg ele we 
ego knese eves we we ee eS © f 

Ve wt Se ee CSE H © ew ew SG C6 8 6 Ve 
o .2° 6 Te @ & 6 & 6 6S Sys Oe te: © 

eee eee en 6 6 me Sed FS Oe H Oe 

a er ws ww & ‘eh ecw Bee Te, Herel se ce ©: Ke Lens 

C.6 6 8 6 Qos ee & we ere we Whe, 6 0! 0: 

6 6 ee 6 sw 6 Sle & (eres « Sie 

oy © 6 ae © 6 ete 6 oe 6 wr oe SS ae 

em wo a cele @ 6 1 Wi a oe eAle, S, & se 

ots 610 O46 ES OOS Oe, B70 18) 6 8S" 

ee © & ‘wei oi & ove (6; ‘fF 0 eye 2. en ies 

eh ee 6 Go S rane © die 6 ae we sae 


6) a fo O Chee te eMa. 6 Ss sae 8 6 Ore 6 ane 


TERMS: (Unless specified elsewhere) Add $1.50 postage, we pay balance. Orders over $50.00 add 85C for insurance. NoC.O.D. Texas Res. add 6-1 /8% Tax. 90 Day Money 
B.ck Guarantee on all items. All items subject to prior sale. Prices subject to change without notice. Foreign order - US funds only. We cannot ship to Mexico. Countries 
other than Canada, add $3.50 shipping and handling. 


Circle no. 13 on reader service card. 
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Dr. Dobb’s Journal was created by 
Dennis Allison and Bob Albrecht in 
1975 as a vehicle for getting public- 
domain versions of the BASIC pro- 
gramming language into the hands of 
computer enthusiasts. Except for 
Gates and Allen’s BASIC for the MITS 
Altair, there was no high-level lan- 
guage available for the new micro- 
computers in 1975, only arcane as- 
sembly language, so Allison and 
Albrecht, interested in giving kids and 
tinkerers and as many people as possi- 
ble access to the technology, set about 
developing a microcomputer BASIC 
and publishing reports on its develop- 
ment in their newsletter, PCC. Since at 
that time 4K of memory was a lot, 
they made their BASIC Tiny. 


BASIC itself is ubiquitous now and still 
lacking any practical standard defini- 
tion; no longer Tiny, it is now Better or 
Professional or True. DDJ publishes 
little BASIC code now, but over the 
years DDJ has continued to publish 
programming tools, including small 
versions of the C and Ada languages. 
But memory is cheap today; does it 
make any sense to write about Tiny Ba- 
sic for the Motorola 68000 micropro- 
cessor? The answer, we think, is yes. 
Tiny BASIC was never intended to be a 
development language, but it 1s a pro- 
gramming language, and it is tiny, and 
“cheap” is a relative term. The ques- 
tion is, how many people are interested 
in getting into the 68000 as cheaply as 
possible? For them, this.—Editor. 


This 3K interpreter beats Applesoft 
on the Sieve benchmark. 


Tiny BASIC was more popular than 
its inventors expected and they soon 
found that they needed a separate 
newsletter just to publish Tiny BASIC 
developments. Dick Whipple and John 
Arnold of Tyler, Texas, wrote a 2.9K 
Tiny BASIC Extended, which was 
published in octal in the first issue of 
Dr. Dobb’s Journal of Tiny BASIC Cal- 
isthenics and Orthodontia (Running 
Light without Overbyte), in January, 
1976. Other Tiny BASICs followed. 

Well, a lot followed, in fact. Virtual- 
ly the whole personal computer revolu- 
tion to date: the demise of the early mi- 
crocomputer companies (MITS, Imsai, 
Proc Tech, Sphere), Apple’s rise and 
Osborne's rise and fall, the entries of 
Tandy and IBM, the irony of Atari, ex- 
pensive advertising and cheap memory. 


Gordon Brandly, R. R. 2, Fort Sask., 
AB, Canada, T8L 2N8. 


emember the good old days? 
Re When the 8080 microprocessor 

reigned supreme, 8K of memory 
cost an arm and a leg, ah yes... Well, 
the years went by, microcomputers got 
bigger, software grew more sophisti- 
cated, and prices went up. This is just 
fine, of course, if you can afford the 
higher prices. The less fortunate 
among us, however, must build or buy 
smaller 16-bit “educational” systems. 
This is fine too—if you don’t mind 
having hardly any software. 

This is just the sort of situation that 
gave rise to Dr. Dobb’s Journal in the 
“good old days.” The solution back 
then was to publish a tiny BASIC inter- 
preter that could be adapted to just 
about any 8080 microcomputer around. 
This solution worked fabulously and 
gave many a hobby computer its first 
taste of useful software. Well, if the so- 
lution worked once, why not again? I 
therefore decided to produce a tiny BA- 
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SIC interpreter for the relatively small 
68000 systems such as the Motorola 
Education Computer Board, the EMS 
68000 board, and so on. 

To produce this BASIC, I took one of 
the most successful 8080 tiny BASICs, 
Li Chen Wang’s Palo Alto Tiny BA- 
SIC (Dr. Dobb’s Journal, May 1976), 
and translated it into 68000 code. I 
then added a few features and opti- 
mized the code a little, producing a 
surprisingly usable interpreter. 

First, Pll describe the differences 
between my interpreter, Palo Alto 
Tiny BASIC, and the ubiquitous Mi- 
crosoft BASICs. I then will describe 
how you can install this software on 
your 68000 system. Finally, ll give 
my evaluation of the interpreter’s pres- 
ent performance and how it can be im- 
proved. 


Features 

Those who know the original Palo Alto 
Tiny BASIC (or the Sherry Brothers’ 
version on CP/M User’s Group Vol- 
ume 11) will find this interpreter very 
similar. I have made two or three 
changes to the interpreter’s syntax to 
bring it closer to the de facto Microsoft 
standard. The colon is used instead of 
the semicolon to separate multiple 
statements on a line. The inequality 
operator (#) has been changed to the 
more standard < > . I also added the 
PEEK, POKE, CALL, BYE, LOAD, and 
SAVE commands, which are described 
later. 

Those of you used to a bigger BA- 
SIC, such as the various Microsoft in- 
terpreters, will find that this version 
works almost the same within its limi- 
tations. Following are some excerpts 
from Li Chen Wang’s original docu- 
mentation, mixed with descriptions of 
my extensions. 


The Language 


Numbers 

In this version of Tiny BASIC, all num- 
bers are 32-bit integers and must be in 
the range 2,147,483,647 to 
—2,147,483,648. I decided to use 32 
bits so that the PEEK and POKE com- 
mands could access the entire address 
range of the 68000. This slows down 
arithmetic operations somewhat, but 
sticking to 16 bits would have produced 
unnecessary complications. 
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Variables 

There are 26 variables, denoted by the 
letters A through Z, and a single array 
@(1). The dimension of this array (i.e., 
the range of value of the index I) is set 
automatically to make use of all the 
memory space that is left unused by the 
program (i.e., 0 through SIZE/4, see 
the SIZE function below). All variables 
and array elements are four bytes long. 


Functions 

There are four functions: 

(1) ABS(X) gives the absolute value of 
xX. 

(2) RND(X) gives a random number 
between | and X (inclusive). 

(3) SIZE gives the number of bytes 
left unused by the program. 

(4) PEEK(X) gives the value of the 
byte at memory location X. 


Commands 
The LET command 
LET A= 234 -5*6, A=A/2, 

X=A— 100, @(X+9)=A-1 
will set the variable A to the value of 
the expression 234—5*6 (or 204), set 
the variable A (again) to the value of 
the expression A/2 (or 102), set the 
variable X to the value of the expres- 
sion A—100 (or 2), and then set the 
variable @(11) to 101 (where 11 is the 
value of the expression X+9 and 101 
is the value of the expression A—1). 

The PRINT command 
PRINT A*3-+1, 

“abe 123 !@#”’, ‘cba’ 
will print the value of the expression 
A*3+1 (or 307), the string of charac- 
ters abc 123 !@# and the string cba, 
and then a CR-LF (carriage return and 
line feed). Note that you can use either 
single or double quotes to quote 
strings, but pairs must match. If a 
comma appears at the end of the 
PRINT command, the final CR-LF will 
not be printed. Note also that commas 
separate adjacent items (most other 
BASICs use the semicolon to perform 
this function). 

PRINT A, B, #3, C, D, E,-#10,F,G 
will print the values of A and B in 11 
spaces; the values of C, D, and E in 3 
spaces; and the values of F and G in 10 
spaces. The value will be printed in full 
even if there aren't enough spaces 
specified for it. 

PRINT ‘abc’,_,°xxx’ 
will print the string abc, a CR without 





Mac 





Inker 


Re-ink any fabric ribbon 
AUTOMATICALLY for less 
than 5¢, Extremely simple 
operation with built-in 
electric motor. We have a 
MAC INKER for any printer: 
cartridge/spool/harmonica/ 
zip pack. Lubricant ink safe 
for dot matrix printheads. 
Multicolored inks, uninked 
cartridges available. Ask for 
brochure. Thousands of 



























Mac Switch lets you share 
your computer with any two 
peripherals (serial or 
parallel). Ideal for word 
processors—never type an 
address twice. Ask us for 
brochure with tips on how to 
share two peripherals (or two 
computers) with MAC 
SWITCH. Total satisfaction or 
full refund. 

$99 00 








Mae Sw ieny, : 


, oe 
ee ~ 


A, 
ANN aa 


Order toll free 1-800-547-3303 


Dealer inquines welcome 
C#:mputer 
a 
Friends 


6415 SW Canyon Court #10 
Portland, Oregon 97221 
(503) 297-2321 


Circle no. 32 on reader service card. 
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a LF, and then the string xxx (over the 
abc), followed by a CR-LF. 

The INPUT command 

INPUT A, B 
will cause Tiny BASIC to print A: and 
wait to read in an expression from the 
console. The variable A will be set to 
the value of this expression. Then B: 
will be printed and variable B set to the 
value of the next expression entered. 
Note that you can enter complete ex- 
pressions as well as numbers. This en- 
ables an interesting trick: you can set 
the variable Y to an unusual value 
(e.g., 9999) and use it to get the answer 
to a yes-or-no question, such as: 

10 Y=9999 
: INPUT ‘Are you sleepy?’A 
> IF A=Y GOTO 100 

The user can answer the question with 
the expression Y, which puts the nu- 
meric value of Y into the A variable. 

INPUT ‘What is the weight’A, 

“and size’ B 

is the same as the first INPUT example 
except that the prompt A: is replaced 
by “What is the weight: and the 
prompt B: is replaced by “and size:”’. 
Again, you can use both single and 
double quotes as long as they match. 

INPUT A, ‘string’,_, 

“another string’’, B 

with the strings and the _, has the 
same effect as in PRINT. 

The POKE command 

POKE 4000+ X,Y 
puts the value produced by expression 
Y into the byte memory location speci- 
fied by the expression 4000+ X. 

The CALL command 

CALL xX 
will call a machine language subrou- 
tine at the address specified by the ex- 
pression x. All of the CPU’s registers 
except the stack pointer can be used in 
the subroutine. 

The BYE command will return con- 
trol to the resident monitor program or 
operating system. 

The SAVE command will save your 
BASIC program on the storage device 
you provide. Details on installing this 
device are given in the source code. As 
set up for the Educational Computer 
Board, this command will send the 
program out to the host computer in an 
easily stored text form. This isn’t, how- 
ever, human-readable program text 
because the line numbers are repre- 
sented in hexadecimal. 
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The LOAD command will delete the 
program in memory and load in a pro- 
gram from your storage device. 


Stopping Program Execution 

You can stop the execution of the pro- 
gram or listing of the program by 
pressing the control-C key on the con- 
sole. Additionally, you can pause in a 
program listing by pressing control-S 
and then pressing any key to continue. 


Abbreviations and Blanks 

You may use blanks freely within a 
program except that numbers, com- 
mand keywords, and function names 
cannot have embedded blanks. 

You may abbreviate all command 
keywords and function names, follow- 
ing each by a period. For instance, P., 
PR., PRI., and PRIN. all stand for 
PRINT. You may also omit the word 
“LET” in LET commands. The shortest 
abbreviations for all the keywords are 
given in the Table (page 46). 

Note that, in some cases, the same 
abbreviation applies to different 
keywords. The interpreter is “smart” 
enough to identify the correct keyword 
for a particular situation. For instance, 
if the abbreviation P. appears at the be- 
ginning of a line, it can only mean 
PRINT. In a statement like A=P(8), 
the P. only makes sense if it stands for 
PEEK. 


Error Reports 
There are only three error conditions 
in Tiny BASIC. The line containing the 
error is printed out with a question 
mark inserted at the point where the 
error is detected. 
(1) “What?” indicates an error in a 
statement’s syntax: 
What? 
260 LET A=B+3, 
C=(3+4?. X=4 
(2) “‘How?” means that the statement 
in question is syntactically correct, but 
for some reason the command can’t be 
carried out: 
How? 
310 LET A= B*C?+2 
where B*C is larger than 
2147483647 
How? 
380 GOTO 412? 
where line 412 does not exist 
(3) “Sorry.” means that the interpret- 
er understands the statement and 





knows how to do it but lacks sufficient 
memory to accomplish the task. 


Error Corrections 

If you notice an error in your entry be- 
fore you press RETURN, you can de- 
lete characters with the backspace 
(control-H) key or delete the entire 
line with control-X. To delete an exist- 
ing program line, just type the line 
number and press RETURN. 


Installation 

Now, how do you get this wonderful 
piece of software running on your com- 
puter? Very easily, if you have a setup 
similar to mine. Installation on other 
systems should also be fairly easy if 
you have access to a 68000 assembler 
of some kind. 

My setup is a Motorola MEX- 
68KECB Educational Computer Board 
(ECB) connected between my terminal 
and my CP/M system. The source code 
was assembled with the Quelo version 
1.9 public domain 68000 cross-assem- 
bler for CP/M. (By the way, if you use 
this assembler, you will get 36 “‘trim16 
address” errors, which is normal.) 
Tiny BASIC is then loaded into the 
ECB and executed at the cold start ad- 
dress of hex 900. 

BASIC programs are saved and load- 
ed by setting up an appropriate CP/M 
command before using SAVE or LOAD. 
For example (user input is underlined): 


After a program is written, 
exit to the monitor: 
=> BYE 
Enter transparent mode: 
TUTOR 1.x> TM. 
Issue a PIP command to the CP/M 
host: 
A> PIP PROGRAM.BAS=CON: 
Exit transparent mode and doa 
BASIC warm start: 
TUTOR 1.x> GO 904 
Do the actual save: 
SAVE 
The warm start is an entry point into 
the interpreter that will preserve any 
program you may have already entered. 
Program LOADs are done similarly, 
except instead of PIP you must run a 
small program that will wait to receive 
a carriage return before sending the 
program to the ECB. Here is a sample 
program in Microsoft BASIC: 
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DIGITAL RESEARCH COMPUTERS 
(214) 225-2309 








































Qe a = 18M PC ADD ON BOARDS 64K S100 STATIC RAM 


NEW! 2 } —— 
LOW POWER! 
150 NS ADD $10 
BLANK PC BOARD 


RIO PLUS II™ — Multi-function board with 2 RS232 serial ports (1 standard, 
1 optional), parallel 1/O port, game port and clock/calendar. Comes with 
64K memory (expandable to 384K) and PC Accelerator. 

STB-RIO + 11 64 List $395 $286.00 


GRAPHIX PLUS II™ 

Multi-function video board featuring monochrome text, full screen 
monochrome graptics, RBG color, composite b&w video, a parallel port, a 
light pen interface, : ‘d an upgradable clock option. 









WITH DOCUMENTATION 


$49.95 FEATURES: PRICE CUT! 









SUPPORT ICs + CAPS Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 

















STB-G. *‘X List $495 $363.00 $17.50 * Fully supports IEEE 696 24 BIT Extended 
™ : Addressing. 
SUPER RIO” FULL SOCKET SET * 64K draws only approximately 500 MA. 


* 200 NS RAMs are standard. (TOSHIBA makes 
$14.50 TMM qo, fast =p ne NS. FOR YOUR HIGH 
SPEED APPLICATIONS.) 
FULLY SUPPORTS THE . sSuppORTS PHANTOM (BOTH LOWER 32K 
NEW IEEE 696 S100 AND ENTIRE BOARD). 
STANDARD * 2716 EPROMs may be installed in any of top 48K. 
(AS PROPOSED) * Any of the top 8K (E000 H AND ABOVE) may 


be disabled to provide windows to eliminate 
FOR 56K KIT $165 any possible conflicts with your system monitor, 
* Perfect for small systems since BOTH RAM and 
SPECIAL OFFER: Buy any two or more of the above boards and take an rel attra Rare EPROM may co-exist on the same board. 
additional $10 per board discount BOARD may be partially populated as 56K. 


disk controller, etc. 
256K S-100 SOLID STATE DISK SIMULATOR! IC RAM 


RAM-1/O multi-function board with 64K memory (upgrad-able to 768K), 
two serial ports, parallel printer port, game port and clock/calendar. 
STB-SRIO-64 List $419 $294.00 


All above boards come with “PC Accelerator” which is a RAM Disk 
Emulator and Printer Spooler that vastly increases your processing speed. 
All boards fully assembled and tested, and are warranted by the 
manufacturer for 1 year! 













































WE CALL THIS BOARD THE “LIGHT-SPEED-100” BECAUSEITOFFERS | = = £+;+| +} = jigs quia : 

AN ASTOUNDING INCREASE IN YOUR COMPUTER'S PERFORMANCE 

WHEN COMPARED TO A MECHANICAL FLOPPY D!SK DRIVE. 
FEATURES: 


PRICE CUT! * 256K on board, using + SV 64K 


* Uses new Intel 8203-1 LSI Memory 
Controller. 

Requires only 4 Dip Switch Selectable 
1/O Ports. 

Runs on 8080 or Z80 S100 machines. 
Up to 8 LS-100 boards can be run 
together for 2 Meg. of On Line Solid 
State Disk Storage. 

Provisions for Battery back-up. 
Software to mate the LS-100 to your 
CP/M* 2.2 DOS is supplied. 

The LS-100 provides an increase in 
speed of up to 7 to 10 times on Disk 
Intensive Software. 


















NEW! 
LOW POWER! | 
RAM OR EPROM! — 


FEATURES 
BLANK PC BOARD « Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 















WITH 


* Fully supports Extended Addressing. 
DOCUMENTATION * 64K draws only approximately 500 MA. 
$52 * 200 NS RAMs are standard. (TOSHIBA makes 
TMM 2016s as fast as 100 NS. FOR YOUR HIGH 


RT | + CAP SPEED APPLICATIONS.) 
abi: oy Oth aks * Board is configured as 3-16K blocks and 8-2K 





















































BLANK PCB * tai bo antidote $18.00 blocks (within any 64K block) for maximum 
PP li LSA gles boards. FULL erate SET * 2716 EPOMs may be installed anywhere on 
. Board. 
PROGRAM ON DISKETTE) $ * Top 16K may be disabled in 2K blocks to avoid 
$6995 2 5 O00 56K Kit $169 any 1/O contlcts, 
: * One Board supports both RAM and EPROM. 
(8203-1 INTEL $29.95) #LS-100 (FULL 256K KIT) 64K Kit $199 * RAM supports 2MHZ operation at no extra 










| ASSEMBLED AND | charge! ; : 

TESTED ADD $50 hoe has Fa partially populated in 16K 
32K $100 EPROM/STATIC RAM 

FOUR FUNCTION BOARD! 









THE NEW ZRT-80 
CRT TERMINAL BOARD! 


A LOW COST 2-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 
ASCII KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TOMAKEA 
COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR 
WITH A MODEM FOR USE WITH ANY OF THE PHONE-LINE COMPUTER 







: 








BLANK 










SERVICES. , ; PC BOARD 
ACE ] EPROM Ii WITH DATA 
FEATURES: $39.95 


: Sm 


FULL 


x Uses a Z80A and 6845 CRT EPROM KIT 


Controller for powerful video 


$69.95 SUPPORT 


capabilities. Ic’s 
* RS232 at 16 BAUD Rates from 75 PLUS CAPS 
to 19,200. ADD $35.00 $16 



















* 24 x 80 standard format (60 Hz). 

* Optional formats from 24 x 80 
(50 Hz) to 64 lines x 96 characters 
(60 Hz). 

* Higher density formats require up to 
3 additional 2K x 8 6116 RAMS. 

* Uses N.S. INS 8250 BAUD Rate Gen. 
and USART combo IC. 

* 3 Terminal Emulation Modes which 






We took our very popular 32K S100 EPROM Card and added FULL 
additional logic to create a more versatile EPROM/RAM Board. Peas SET 


FEATURES: ™* This one board can be used in any one of four ways: 
A. As a 32K 2716 EPROM Board 
B. As a 32K 2732 EPROM Board (Using Every Other Socket) 
C. As a mixed 32K 2716 EPROM/2K x 8 RAM Board 
D. As a 32K Static RAM Board 















i j Uses New 2K x 8 (TMM2016 or HM6116) RAM's 
le. Th ‘ 
pee Ne Leutmedhc the Heath BLANK PCB WITH 2716 yy S’ Fully Supports lEEE bg ie Standard (As Proposed) 
H-19, and the Beehive. CHAR. ROM, 2732 MON. ROM &; Supports 24 Bit Extende ressing 


200 NS (FAST!) RAM'S are standard on the RAM Kit 
Supports both Cromemco and North Star Bank Select 
Supports Phantom 

On Board wait State Generator 

Every 2K Block may be disabled 

Addressed as two separate 16K Blocks on any 64K Boundary 
Perfect for MP/M™* Systems 

RAM Kit is very low power (300 MA typical) 


32K STATIC RAM KIT — $109.95 


For RAM Kit A&T — Add $400 


TERMS: Add $3.00 postage. We pay balance. Orders under $15 add 75¢ 
handling. No. C.O.D. We accept Visa and MasterCharge. Tex. Res. add 
5-1/8% Tax. Foreign orders (except Canada) add 20% P & H. Orders over 
$50, add 85¢ for for insurance. 


Composite or Split Video. 
Any polarity of video or sync. $49 95 
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ON 


10 INPUT “Program to send?”’;F$ 

20 OPEN “I’’,1,F$ 

30 INPUT “Now exit Transparent 
Mode and do a LOAD.”’;Z$ 

40 WHILE NOT EOF(1):LINE IN- 
PUT #1,A$:PRINT A$:WEND 


Admittedly, this way of LOADing 
and SAVEing is a fairly complex proce- 
dure, but it allows you to save your 
programs on disk while keeping the in- 
terpreter itself small. If your ECB isn’t 
connected to another computer, you 
probably could change the AUXIN and 
AUXOUT subroutines to use the cas- 
sette interface. (I haven’t tried it, 
though, so caveat emptor!) 

For other 68000 systems, you will 
have to modify only the OUTC, INC, 
AUXOUT, AUXIN, and BYEBYE rou- 
tines at the end of the interpreter pro- 
gram. In addition, you must put the 
address of the first unavailable memo- 
ry location above BASIC into the loca- 
tion ENDMEM. BASIC programs are 
SAVEd in a form that can be stored as 


A.=ABS 
C.=CALL 
F.=FOR 
GOS. =GOSUB 
G.=GOTO 
IF=IF 

|. =INPUT 
L.=LIST 
LO.=LOAD 
N.=NEW 
N. =NEXT 
P.=PEEK 
PO.=POKE 
P.=PRINT 


REM=REMARK 


R.=RETURN 

R.=RND 

R.=RUN 

S.=SAVE © 

S.=SIZE 

S.=STEP 
 $.=STOP 

TO=TO 

no keyword = LET 


Table 
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ASCII text and read back quickly by 
the 68000; if your storage device can’t 
handle the present format or if you 
would like the program saved in a hu- 
man-readable form, you need modify 
only the SAVE and LOAD subroutines. 

One warning: I wrote the DIRECT 
and EXEC routines assuming that the 
interpreter itself would be somewhere 
in the first 64K of memory ($0 to 
$FFFF). If you move it above 64K, you 
will have to modify the EXEC routine 
and check the rest of the code carefully 
to make sure the addressing modes are 
correct. 


Evaluation 

I am quite pleased with how the inter- 
preter turned out. Even though I added 
extra error checking, lower-case con- 
version, and more commands and ex- 
tended the variable size to 32 bits, the 
whole thing still fits inside 3K of mem- 
ory. I ran the Sieve of Eratosthenes 
benchmark program on this interpret- 
er and on the Sherry Brother’s CP/M 
tiny BASIC with the following results: 


68000 at 4 MHz 
2670 seconds 


Z80 at 4 MHz 
3000 seconds 


Although I adjusted the results for 
the usual 10 iterations of the basic al- 
gorithm, I actually ran the program 
only for one iteration to keep running 
times within a practical limit. This tiny 
BASIC may not be a speed demon, but 
it does beat Applesoft and PET BASIC 
at running the Sieve benchmark. I 
should add that I compressed the Sieve 
program listing to the maximum for 
speed considerations; I normally use 
more spaces and some comments so 
that I can figure out later what the pro- 
gram was supposed to do! 

Of course, many improvements can 
be made given more available memory. 
My Educational Computer Board has 
32K of memory, so I probably will add 
such things as more variables, strings, 
and keyword tokenization. The last is a 
method used by most BASIC interpret- 
ers to compress keywords such as LET 
and PRINT into single bytes. This 
would greatly speed up the interpreter 
while using less memory to store the 
BASIC program. 


Availability 
By the time you read this, the inter- 


preter source code and some example 
programs should be available on a cou- 
ple of the RCP/M bulletin board sys- 
tems in my area: 

Meadowlark RCP/M (403) 484- 
5981 

Edmonton RCP/M (403) 454-6093 

The Edmonton RCP/M accepts both 
300 and 1200 baud, but the Meadow- 
lark system allows access to its CP/M 
area only at 1200 baud. Both systems 
run 24 hours a day. 

The interpreter source code is 
known as TBI68K.AQM, which is a 
“squeezed” text file. If you don’t have 
a MODEM7 type program and a way 
to unsqueeze this file, you can use 
these systems’ LIST command to list 
out the source code while you capture 
it with a telecommunications program. 

A short documentation file, 
TBI68K.DQC, and some sample pro- 
grams, TBIPROGS.LBR, are also avail- 
able. The latter is a CP/M library file, 
which contains several programs. You 
can list the library’s contents with the 
LDIR command and extract individual 
programs using either the systems’ 
XMODEM or LTYPE commands. The 
Quelo cross-assembler is also some- 
times available on these systems under 
the names A68K.COM and A68K.DOC. 

Although I’d prefer that you obtain 
the source code from one of the above 
sources, for $20 I can provide the code 
in the following forms: 8-inch CP/M 
SSSD diskette, 5-inch Osborne or Ap- 
ple CP/M diskettes, or a paper listing. 

If you find any bugs in the interpret- 
er or have any questions, please write 
to me or contact me on the above RCP/ 
M system. 


DD} 
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Mm MEMORY MANAGEMENT 
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Dynamic Allocation 
Compacting Garbage Collector 


M@ FUNCTION TYPES 
EXPR/FEXPR/ MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


10 SUPPORT 
Multiple Display Windows 
Cursor Control 

All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 

Package Support 

Debugging Functions 

.OBJ File Loader 


M@ RUNS UNDER PC-DOS 1.1 or 2.0 
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Debugging Bugging You? 
Torpedo program crashes and debugging delays with 
debugging dynamite for the IBM PC... 


UP PERISCOPE! 







First, you install the hardware. 


The hardware’s a special memory board 

that fits ina PC expansion slot. Its 16K of % 
write-protected memory contains te 
Periscope’s resident symbolic debugger. No ay 
runaway program, however berserk it may : 
be, can touch this memory! y i.” o— 


Then you UP PERISCOPE. 


Use Periscope’s push-button break- 
out switch to interrupt a running 
program ... even when the system’s 
hung! Periscope supports Assembly, 
BASIC, C and Pascal. In addition to the 
usual debugging capabilities, some of 
Periscope’s features are: 


Stop your system in 
its tracks at any time. 


Use symbol names instead 
of addresses. 


Run a program on one monitor and 
debug on another. 


Monitor your program’s execution 
with Periscope’s comprehensive 
breakpoints. 


Debug memory-resident programs. 


Put your time to better use. 


The Periscope system is $295. It carries a 30-day money-back 
guarantee and includes the memory board, remote break-out 
switch, debugger software, 100-page manual, and quick- 
reference card. The memory board is warranted for one year. A 
demonstration disk is $5.00. 


System requirements for Periscope are an IBM PC, XT or 
Compaq, PC-DOS, 64K RAM, 1 disk drive and an 80-column 
monitor. For MasterCard and Visa orders only, call 800/421- 
5300 (ext. R96) 24 hours a day. For additional information, call 
404/256-3860 from 9 AM to 5 PM Eastern Time. 


Get your programs up and running; 


uP PERIS E! 


Data Base Decisions / 14 Bonnie Lane /Atlanta, GA | 30328 
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An Enhanced 
238) 5. 
Cipher System 


by C. E. Burton 


Cryptography is too important 
to be left to the NSA. 


the RSA algorithm.! The major disadvantage of that algo- 

rithm was that it was not very fast, either in key generation 
or in encryption /decryption. However, if you need the secu- 
rity, you probably should use the RSA cryptography system 
or the DES cryptosystem. 

Most information, however, has a time value associated 
with it. Thus, it is not necessary to use a RSA or a DES 
cryptography system on all messages. For example, if a mili- 
tary operation were going to be mounted within a month, we 
could encrypt messages relating to the operation using any 
cryptographic system that we can show to be unbreakable 
over that period of time (plus some “‘slop” for weather, de- 
lays, etc.). 

Private key systems are fast and can be difficult to break. 
The cryptography system described in this article is based on 
a method developed by the Germans during World War I. 
David Kahn, in his book The Code Breakers (MacMillan, 
1967), indicated that this field cipher system was probably 
the toughest then developed.2 The original cipher was 
termed the ADFGX system, and it took Painvin, a French 
cryptoanalyst, over a month to decode the first batch of mes- 
sages that the Germans encrypted. 

The ADFGX system, however, has the same problem that 
the DES system or any other private key system has: the key 
must be known to both the encryptor and the decryptor. 
Muller-Schloer has suggested one way around this problem.? 
Having some way to send the key with the message would 
eliminate the logistics of key distribution. The question be- 
comes: How can we do that without giving everything away? 
The answer is really simple! We encrypt the message with a 
private key system. Next we encrypt the private key, using a 
public key system, and append the encrypted form of the 
private key to the message. 

We now have the best of both worlds. The private key 
system can encrypt/decrypt a message rapidly (in hardware 
or in software), and we can even change the key for every 
message. Because the private key is short, it does not take 
long to encrypt/decrypt it using a public key system. 

This article describes an enhanced version of the ADFGX 
cipher system: the cipher, the character substitution method, 
the use of a key or password to do an irregular columnar 
transposition, a run-length data compression method, and 
some of the housekeeping functions performed in the encryp- 
tion/decryption process. The substitution method contains a 
“card’-shuffling algorithm and a random number generator. 
The language used to write these routines is C. 

Before we get into the details of my implementation, we 
should look at the original German ADFGxX cipher system to 
get a feel for where we will be heading. 


| n another article, I described a public key system based on 


The ADFGX Cipher 
The ADFGX cipher was named after the letters of the Morse 
code used in the transmission of the encrypted messages. Be- 


Charles E. Burton, 13284 W. Utah Circle, Denver, CO 
80228. 
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cause these particular characters are quite distinctive, the 
Germans felt that, even if noise partially garbled the message, 
these characters could not be confused. For those of you unfa- 
miliar with Morse code, it represents the alphabet by a series 
of dots and dashes. The telegraph system sent and received 
messages translated into Morse code, and after Marconi de- 
veloped the radio, Morse code was used over the air waves. 
The Morse code representation of the cipher letters is: 

A.- 

D-.. 

Fes: 

G--. 

X-..- 
With these letters, the Germans could represent a scrambled 
alphabet in a 5 X 5 square matrix (leaving out one letter, 
say, Q). The substitution matrix might have looked like this: 


LB PRS aes cep. 4 


MMmMHco > 





xO 70 > 


The next item required was a key, which is used to do a 
columnar transposition. We assign each letter in the key a 
column number. Then we sort the key alphabetically by char- 
acter to get the column order for transmission. Let us choose a 
key: DOG MEAT. Squeezing out the blanks and alphabetical- 
ly sorting the letters of the key, we get ADEGMOT. The sorted 
column order is 6/1/5/3/4/2/7: 


DO G'M-E A f 
Fae ae Bee. a SS. ae: 


becomes 


ALD i MOT 
64h 5533428 


Now, we need a message to see how all of this works. Let’s 
use the message, ““Meet me at the zoo at ten.”” After remov- 
ing all of the spaces and punctuation, we have: 

MEETMEATTHEZOOATTEN 
Next we take each letter, in turn, and pass it through the 
ADFGxX substitution table to get the row and column address 
(in the form of a row/column pair using the letters ADFGX). 
For example, the letter M would become AG (row A, col- 
umn G): 


Se Re ey Sie Mie ee, Uae Sas ee. Gaal 
AG GA GA FA AG GA FD FA FA DX GA 


BAP RSA Bs oe a ee WN 
FX AA AA FD FA FA GA FF 


We place these letter pairs in a table that has columns head- 
ed by the key letters (DOG MEAT). The key transposition 
table is loaded a row at a time: 
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D/1 O/2 G/3 M/4 BES A/6 Ti 
A G G A G A F 
A A G G A F D 
F A F A D xX G 
A F 4 A A A A 
F D F A F A G 
A F F 
Message _ 
MEE -T 
MEA 
22 EH 
Zz. ©: 0 
A qT E 


T 
N 
Finally, we pull the columns out and rearrange them as rows 
in the previously determined order (6/1 /5/3/4/2/7): 


6 | 5 Be 

AFXAA  /AAFAFA /GADAF /GGFXFF / 
4 2 7 

GAAA —_/GAAFDF /FDGAG 


The message is now encrypted and ready for transmission 
(without the ‘“*/’’s). Note that, although the message length 
has doubled, sending the encrypted message in this fashion 
gave the Germans benefits that outweighed this disadvan- 
tage: the distinctive nature of the letters transmitted. Cer- 
tainly they could have run the transposed message back 
through the substitution table to get a message of length 
equal to the original: 


AF -XA .AA. AF AF. AG -AD AF © GG. cFX 
GS ¢ O C oe M2 =D ¢ I Z 


FF AG: AA. AG. AA FD: FE. DG OAG 
N M O M .-O A N L M 


But this would mean using the whole alphabet rather than 
five letters and increase the chance of error introduction at 
two additional stages (one at the sending end and one at the 
receiving end). Remember, there were no computers during 
World War I. On the other hand, had the Germans taken 
this extra step, in all likelihood it would have taken much 
longer to break the cipher. 

The decryption process follows the above steps in the re- 
verse order: the received letters are put into the key table in 
their original columns; character pairs are read out from the 
rows; and these pairs are used in the substitution table to get 
the original message. Note that the receiver must know two 
pieces of information to decipher the message: the key and 
the substitution table. 

The letter V was added to the original ADFGX formula- 
tion to allow all 26 letters and 10 digits to be used; the substi- 
tution table produced by the ADFGVX cryptosystem was a 
6 X 6 matrix. Again the 36 characters were put into the 
substitution matrix in a random order. The same procedure 
to encrypt/decrypt was used. 
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Enhanced ADFGVX 

I have enhanced the basic ADFGVX system in several areas. 
First, because it is useful to be able to encrypt/decrypt text, as 
well as data, programs or anything else, we must be able to deal 
with byte-wide data. A substitution table that can handle char- 
acters from 0 to 255 (00 to FF hex) must be a 16 X 16 matrix. 

Second, because the “messages” will be longer than a few 
“words,” one columnar transposition will not do; we must block 
the “message” into something more suitable. Each block will 
be passed through the algorithm for encryption and decryption. 
Because each letter of the message will be expanded to two 
letters by the substitution step, a transposition table with an 
even number of characters is desirable (but not mandatory). To 
make the transposition more difficult to figure out, the table 
must not end on an even square, such as 25 or 36. That way the 
messages are not blocked into a form that provides information 
about the ciphering method. Foster has shown that the use of 
incomplete or irregular columnar transposition makes the deci- 
phering task much harder. 

Third, some simple data compression, especially for text, 
would reduce storage capacity and transmission time. We also 
will do the backward substitution operation at the end so that 
the message size does not double—we have a computer that 
should not make the mistakes that a human might. 

A couple of additions could make this implementation even 
more difficult to attack and break. First, make the incomplete 
columnar transposition variable. For example, the previous 
key transposition table had seven columns. Say that we need 
between 4 and 10 rows in the transposition table before trans- 
posing. We could fill the transposition table with an even 
number of characters from the substitution operation so that 
28 (7 X 4) to 70(7 X 10) of these characters are loaded into 
the transposition table before each column transposition oper- 
ation. For instance, choose the repeating character count se- 
quence: 46, 62, 30, 54, and 38. On the first pass, we load the 
first 23 (46 / 2) row/column pairs into the transposition ma- 
trix; on the next pass, we load the next 31 row/column pairs; 
and so on, cycling through the five character count sequences. 
The main problem with this variability option is that it in- 
volves another piece of information that both the sending and 
receiving parties must know. 

The second addition, which involves a double irregular col- 
umnar transposition, again requires that another piece of in- 
formation be available to both parties. To apply this option, 
we do everything as usual, using one key to do the first trans- 
position, then we use a second key to form a second transposi- 
tion table (just as we did with the first key); we fill the second 
transposition table with the output of the first transposition 
table. Next we perform the second transposition, and finally 
we do the backward substitution to get the encrypted mes- 
sage. The technique of double transposition has been used as a 
military cipher system (“U.S. Army Transposition”) because 
of the difficulty in deciphering the result. Foster indicated 
that he knew of no method to crack the double transposition 
technique by hand or by microcomputer. 

Figures | and 2 (page 51) present the structure charts for 
the encryption and decryption processes, respectively. Rath- 
er than have each of the boxes represent a separate routine, I 
have combined many of these routines together. Those boxes 
with an asterisk (*) above them indicate separate modules; 
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their names are given below the box. Those boxes without 
the special notation appear in their parent box. The looping 
arrow at the bottom of a box indicates repetition, and the 
diamond indicates a decision (the child may or may not be 
called, depending on the outcome of the decision). 

We now are ready to discuss the various procedures. Even 
though I designed the software in a top-down fashion, I will 
introduce the modules in a somewhat bottom-up fashion. 


Substitution Matrix 

We must generate a 16 X 16 matrix (256-entry table) to get 
our character substitutions. Rather than use characters 
(e.g., ADFGVX or equivalent) to represent the rows or col- 
umns, we will use the row and column numbers (0 to 15). We 
must fill the matrix positions in a random order. A simple 
card-shuffling routine can be used to do this. We also must 
overcome one minor problem: how can we find the “card” 
value, given its position in the “deck,” and how can we find 
the position in the “deck” of a “card” of a given value. We 
need these answers to perform both the forward and back- 
ward substitution procedures. 

The routines that handle the matrix filling are shuffle( ) and 
ran( ). shuffle( ) takes a linear array (having 256 character 
positions) and fills the entries in linear order. Then it passes 
through the “deck” and swaps the current “card” with another 
card in a random position as determined by a call to ran( ). 

Once the “deck” has been shuffled, it is scanned to find the 
position of each “card” within it. The result is two linear arrays: 

position[I] — holds the position of card I within the deck 

value[J] — holds the value of the Jth card in the deck 
Given position[ ], we can find the row and column position of 
a character (or perform the forward substitution) by: 

row = position[char] / 16 

column = position[char] % 16 

(i.e., position[char] mod 16) 

Given value[ ], we can find the character occupied by a row 
and column (or perform the backward substitution) by: 

char = value[ 16 * row + column] 

Note that we are using a linear array to represent a matrix. 
ran(MAX) returns a random integer between 0 and 
(MAX—1). We can alter the random number generation se- 
quence by changing the initial value of IY to be greater than 0 
and less than 2796203. One possibility might be to declare LY 
as a global variable and to ask for a seed value in the main 
program. Remember, however, both the sender and the re- 
ceiver must have the same starting seed to produce identical 
substitution tables. For the same reason, the substitution table 
must be generated before any other use is made of ran( ). 


Irregular Columnar Transposition 

From the ADFGX example, we found that the transposition 
involved several steps. First, given a password or key, we 
must sort the password on a character-by-character basis. 
This job is performed by pwsort( ). In pwsort( ), I have limit- 
ed the length of the password to values greater than 4 and 
less than 11. If the password is less than 5, the routine gives 
an error message and exits to the operating system. If the 
password is greater than 10, the password is truncated to the 
first 10 characters. You can alter the routine to use other 
password lengths. Once the password is validated, we sort 
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the characters individually using a simple bubble sort. 

The array pwcolumnorder[ ] holds the sorted order of the 
transposition columns. This sort arranges the columns in de- 
scending (largest to smallest) order; i.e., DOGMEAT be- 
comes TOMGEDA. Variations could arrange the sorted col- 
umns in ascending order, inside-out, outside-in, and so on, as 
long as the sender and receiver agree. pwcolumnorder[0] 
provides the first column and pwcolumnorder[pwlen— 1] 
gives the last column to extract. 

Second, we must determine the size of the transposition 
table. This is done in the main( ) routine. I have picked a 
length to ensure the columns are irregular by using: 

blklen = pwlen * pwlen + pwlen / 2 

blklen + = odd(blklen) ? 1:0 

(i.e., if blklen is odd then increment blklen else leave it 
alone) 
This makes the transposition matrix (pwlen + 1) rows and 
pwlen columns, with the last row incomplete. Note that I 
have made the number of entries even so that row/column 
pairs are not broken. 

Finally, we must fill the transposition matrix and perform 
the transposition. For encryption, we must enter the infor- 
mation from the forward substitution matrix into the trans- 
position matrix by rows and in the substitution row/column 
order. Once the transposition matrix is filled, the routine 
transpose(_) is called to pull out the columns in sorted order. 
These new row/column pairs are passed through the back- 
ward substitution and then saved as the encrypted message. 

For decryption, we must enter the information from the 
forward substitution matrix into the transposition matrix by 
columns and in the sorted column order. Once the transposi- 
tion matrix is full, the dual routine untranspose( ) is called to 
pull out the rows in their original order. These new row/ 
column pairs are run through a backward substitution and 
saved as the plain text message. 

Actually, the transposition matrix is filled in a linear or- 
der, and the transpose( ) and the untranspose( ) routines 
take care of obtaining the proper ordering of the rows and 










Lastchar = EOF - 












— Figu re 3a. 
COMPRESS( ) State Diagram 
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columns. The transposition matrix-filling operation pro- 
duces the message blocking that I mentioned previously. 

One minor problem with this operation is the handling of 
messages that are not an even multiple of blklen (the usual 
case). A simple solution is to pad the end of the message with 
random characters. However, to make sure that the decryp- 
tion returns the original message without the padding, we 
must arrange for the length of the original plain text mes- 
sage to be found and saved at the beginning of the encrypted 
file. I have done this by using a union called filelen. It is used 
identically to an “equivalence” in Fortran. Because the C 
library routine putc( ) handles only bytes, I built the union to 
hold a long integer (the file length) and an equivalent-sized 
character array. This construction allowed me to load/save 
the file length from/to a file in a byte-at-a-time mode. 


Data Compression/ Expansion 

A useful program is available on most CP/M-based bulletin 
board systems. Called SQ/USQ (squeezer), it allows files to 
be compressed and expanded so that you can save disk space. 
Richard Greenlaw wrote the software, which uses two types 
of compression: run length compression and Huffman cod- 
ing. The achievable compression ranges from 3% to 70%, 
depending on the makeup of the file. I have borrowed and 
modified the run length compression routine to perform my 
data compression. The expansion routine that I used is mod- 
eled after the compression routine. (Although Greenlaw’s 
USQ program has a more efficient expansion routine, I chose 
to do my expansion differently. ) 

What makes these compression /expansion routines inter- 
esting is that they are good examples of state machine rou- 
tines. Figures 3a and 3b (below) show the state diagrams for 
the compress( ) and expand( ) routines, respectively. These 
routines show how the switch-case construct can be used to 
advantage in representing the states. In the figures, the bub- 
bles represent the states and the arrows represent the state 
transition conditions. Similar directed graphs are used in 
electrical engineering to represent logic circuit operations. 


a: =SYN , 
Count # @ 





Lastchar # SYN 


Lastchar = SYN 





_ Lastchar # SY 2 


Lastchar = SYN 





Figure 3b — 
EXPAND() State Diagram sits 
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MicroMotion 


MasterFORTH 


I's here — the next generation 


of MicroMotion Forth. 


Available for the APPLE II’s, IBM PC, Macintosh & 
CP/M 2.x. 


Meets all provisions, extensions and experimental 
proposals of the FORTH-83 International Standard. 


e Uses the host operating system. 
@ Built-in micro-assembler with numeric local labels. 
e Afull screen editor is provided which includes 16 x 


64 format, can push & pop more than one line, 
user definable controls, upper/lower case key- 
board entry, ACOPY utility moves screens within & 
between lines, line stack, redefinable control 
keys, and search & replace commands. 


Includes all file primitives described in Kernigan 
and Plauger’s Software Tools. 


e The input and output streams are fully redirectable. 
e The editor, assembler and screen copy utilities are 


provided as relocatable object modules. They 
are brought into the dictionary on demand and 
may be released with a single command. 
Many key nucleus commands are vectored. Error 
handling, number parsing, keyboard translation 
and so on can be redefined as needed by user 
programs. They are automatically returned to 
their previous definitions when the program is 
forgotten. 

The string-handling package is the finest and 
most complete available. 

A listing of the nucleus is provided as part of the 
documentation. 

The language implementation exactly matches 
the one described in MASTERING FORTH, by Ander- 
son & Tracy. This 200 page tutorial and reference 
manual is included with MasterFORTH. 


e@ Floating Point & HIRES options available. 
@ MasterFORTH — $100.00 APPLE & CP/M; $125.00 


Macintosh & IBM PC. Floating Point & HIRES — 
$40.00 each. 
Publications 


e MASTERING FORTH - $18.00 
@ 83 International Standard — $15.00 


@ FORTH-83 Source Listing 6502,Z-80,8086 - $20.ea. 
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$250.00 


A SIMPLE, INEXPENSIVE SOLUTION TO PROGRAMMING EPROMS 


The APROTEK 1000 can program 5 volt, 25XX series through 2564, 27XX 
series through 27256 and 68XX devices plus any CMOS versions of the above 
types. Included with each programmer is a personality module of your choice (others 
are only $10.00 ea. when purchased with APROTEK 1000). Later, you may re- 
quire future modules at only $15.00 ea., postage paid. Available personality 
modules: PM2716, PM2732, PM2732A, PM2764, PM2764A, PM27128, 
PM27256, PM2532, PM2564, PM68764 (includes 68766). (Please specify 
modules by these numbers). 


APROTEK 1000 comes complete with a menu driven BASIC driver programmer 
listing which allows READ, WRITE, COPY, and VERIFY with Checksum. Easily 
adapted for use with IBM, Apple, Kaypro, and other microcomputers with a RS-232 
port. Also included is a menu driven CPM assembly language driver listing with Z-80 
(DART) and 8080 (8251) I/O port examples. Interface is a simple 3-wire RS-232C 
with a female DB-25 connector. A handshake character is sent by the programmer 
after programming each byte. The interface is switch selectable at the following 
6 baud rates: 300, 1.2k, 2.4k, 4.8k, 9.6k and 19.2k baud. Data format for program- 
ming is ‘‘absolute code’’. (i.e., it will program exactly what it is sent starting at 
EPROM address 0). Other stanaard downloading formats are easily converted to 
absolute (object) code. 


The APROTEK 1000 is truly universal. It comes standard at 117 VAC 50/60 HZ 
and may be internally jumpered for 220-240 VAC 50/60 AZ. FCC verification 
(CLASS B) has been obtained for the APROTEK 1000. 

APROTEK 1000 is covered by a 1 year parts and labor warranty. 


FINALLY — A Simple, Inexpensive Solution To Erasing EPROMS 


APROTEK-200™ EPROM ERASER APROTEK-300™ only $60.00. 
imoly i EPROMS This eraser is identical to APROTEK- 
eet a ce 48 minutes, 200™ but has a built-in timer so that the 
you switch OFF and are ready to ultraviolet lamp automatically turns off in 
reprogram. 10 minutes, eliminating any risk of overex- 
APROTEK-200™ only $45.00. posure damage to your EPROMS. 
g APROTEK-300™ only $60.00. 
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Add Shipping Per Item: $3.00 Cont. U.S. 
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UTILITY LIBRARY 


The € UTILITY LIBRARY is a set of 200+ functions designed 
specifically for the PC software developer. Use of the Library will 
speed up your development efforts and improve the quality of 
your work. 


e BEST SCREEN HANDLING AVAILABLE 


e WINDOW MANAGEMENT,COLOR GRAPHICS 
e DOS 2 DIRECTORIES, COMMUNICATIONS 
e KEYBOARD, PRINTER, TIME/DATE 


e EXECUTE PROGRAMS, BATCH FILES 
e STRINGS, BIOS, AND MUCH MORE 
e ALL SOURCE INCLUDED—NO ROYALTIES 
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$149, Mark Williams $149, DeSmet $99. Add $3 shipping. N.J. 
residents add 6% sales tax. Visa, MC, checks—10 days to clear. 
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MicroMotion 
12077 Wilshire Blvd., Ste. 506 


Los Angeles, CA 90025 
(213) 821-4340 


ESSENTIAL SOFTWARE, INC. 
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PO. Box 1003 
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Software dealing with control mechanisms also uses state 
diagrams. Comparing the state diagrams with the routines 
provides an easy understanding of the code. 

Basically, the run length compression routine looks at the 
character stream. If three or more adjacent characters are the 
same, the routine counts the like characters and substitutes a 
three-byte string that incudes the character, a special character 
indicating compression has occurred, and the character repeat 
count; i.e, <char> SYN <count>. To handle the circum- 
stance where the special character occurs in the character 
stream, the routine generates the special character and a char- 
acter count of zero; i.e., SYN <O>. Finally, if an end of file 
(EOF) occurs, the routine responds with an EOF thereafter. 
The expansion operation essentially reverses the process. 


Housekeeping Operations 

One of the nice features of C is that it allows you to read 
information from the command line that calls the program 
into execution. I have used this capability in both the encryp- 
tion and the decryption programs. With either program, you 
specify the execution program name, followed by the plain 
text filename, followed by the password or key. Most of the 
early housekeeping involves picking up the filename and 
password. 

Once the plain text filename is retrieved, the encrypted 
filename is generated from the plain text filename by modi- 
fying the filename extension. If the plain text filename ex- 
tension has at least one character, a Y is substituted for the 
second letter of the extension. If there is no extension, an 
extension of .Y YY is appended to the filename. For example, 
if the plain text filename is MESSAGE.TXT, then the en- 
crypted filename becomes MESSAGE.TYT. 

The encryption program checks for the existence of the 
plain text source file, and the decryption program checks for 
the existence of the encrypted source file. If the source file 
cannot be found and opened for reading, the programs exit to 
the operating system after generating an error message. 
Similarly, if the target file is opened for writing and a prob- 
lem occurs, a message is generated and an exit takes place. 
After taking care of the files, the password is retrieved and is 
checked using pwsort( ), as already described. 

As indicated previously, the length of the plain text file 
must be found. The encryption process determines the plain 
text file length using the fseek( ) and ftell( ) functions found 
in the C library. It saves the length at the head of the en- 
crypted file. The decryption process reads the file length 
from the encrypted file and uses the value to determine when 
the end of the plain text file has occurred, exclusive of the 
padding characters. 

Once these steps are complete, the encryption /decryption 
process proceeds as already explained. The arrays BUFI[ ] 
and BUF2[ ] hold the row/column pairs that result from the 
substitution process. These arrays contain a block of mes- 
sage, the length of which is twice the length of the plain text 
or encrypted text block. BUFI[ ] holds the forward substitu- 
tion pairs; BUF2[ ] contains the result of the transposition 
that is ready for submission to the backward substitution. 
The encryption program uses these arrays in the main( ) 
routine, and the decryption program uses them in the 
getcnxt( ) routine. Note that these arrays are large enough 
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for the largest password used in the columnar transposition 
(plus a little bit). 

After the encryption/decryption process is complete, you 
no longer need to keep the source file, so it is erased. When 
you are debugging these programs, you will probably want to 
inhibit the unlink( ) function that performs this file deletion. 

One final operation is performed in the encryption program 
prior to source file deletion. Because certain programs can 
“unerase”’ or look at a disk on a sector-by-sector basis, and we 
do not want to leave any traces of the original plain text file, 
we must overwrite the entire plain text file with something. I 
have chosen to use the character F6 hex, but any byte charac- 
ter will do. Again you will probably want to inhibit this opera- 
tion while debugging. (There is no need to overwrite the en- 
crypted file, since it is “gibberish” anyway. ) 


Example 

Figure 4a (page 55) is the original plain text file that I en- 
crypted and subsequently decrypted. I have shown the en- 
crypted text file (Figure 4b, page 55) and the decrypted text 
file (Figure 4c, page 56) in both hex and ASCII representa- 
tions; this is essentially the same representation used by the 
D command under DDT. Note that the encrypted file’s first 
four bytes provide the length of the original plain text file. It 
is after that point (from the fifth byte to the end of the file) 
that the encrypted text of the original plain text file occurs. 
The plain text file has several repeated character sequences 
to demonstrate data compression. 

To duplicate my results, let’s call the plain text file 
ADFGVX.TXT and use the password GERMANS. To encrypt 
ADFGVX.TXT, you type in the command line: 

ENCRYPT adfgvx.txt germans 
This produces the encrypted file ADFGVX.TYT and destroys 
ADFGVX.TXT. To decrypt the encrypted file, you type the 
command line: 

DECRYPT adfgvx.txt germans 
This produces the decrypted file ADFGVX.TXT and erases 
ADFGVX.TYT. You enter the command lines at the operat- 
ing system prompt; e.g., at the >A under CP/M. You must 
compile, assemble, and link the programs so that the encryp- 
tion program has a name of ENCRYPT.COM and the de- 
cryption program has the name DECRYPT.COM. 

Note that this implementation does not remove spaces, 
punctuation, and so on. Because the substitution table covers 
the entire byte-wide character set, what you put in will come 
out at the other end unaltered. You do not have to squeeze 
together then break up the text, as we had to do with the 
original German cipher. In addition, you can encrypt/de- 
crypt any file. 


Conclusion 

Although this cipher is not as secure as a RSA or a DES 
cryptosystem, its character set scrambling makes it indistin- 
guishable from these other methods. According to Kahn, 
this cipher is not easily broken. The advantages are that the 
cipher is simple to implement and fast in execution. The 
major disadvantage is that both the sender and the receiver 
must know the key or password and the substitution table 
ordering. As I pointed out, you can overcome this difficulty 
by using a public key system to encrypt the key and table 
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ed characters: © 


MEMMRRMEE PSOE ODEN xx CH EEE EO SOK EE ILE OEE 
WYVVYVYVYVYYVYYVYYV YY VV YY VY NYY YY YY YY YY YYYYYVYYY 


These sequences ‘al be converted by the data compression 
routine to the following three character representation: 


<x> SYN <S2> = 73 16 34 Gn Vey) 
<Y> SYN <S2> = S7 16 34 (in hex) 


Notice that we are not restricted to upper case letters and © 
digits only. This implementation does not have to remove | 
Spaces and punctuation. Thus. all ASCII characters (@ to 
127) can be used, as well as the byte values from 128 to 255. 





The encrypted file will not have a one-to-one correspondence 
between these characters and those produced by the encryption 
process, i.e. letter frequency analysis will not help. This ~ 
result is due to the transposition, which may replace an "a" 
in one case by a "Y" and in another case by a "*", etc. 


_ Figure 4a | | 
Plain Text to be encrypted. File Name is ADFGVX.TXT. 





GO 04 00 00 56 FA BO CD B7 AC @D ER S2 6C 67 59 = ....V.......210V 
E7 9E 20 9E 4B AG GD 26 20 25 BO 75 SC BS 6F 603... .K..& %u\.0° 
09 AC 28 46 E1 S32 26 BO FE OB G2 SE SC 4D OB 20... (F.2&....\\m- 

96 20 OB 20 7E 65°92 96 SEF? 16 F6 OB SD 54 54 =. -,ie.-?,---=1E 
B4 79 D7 EG 9D E64 C2 28 77 27 20 41 SE 20 AE 70 .y.....4W' @%,-2 
C2 F2 OA 65 F7 AZ C2 Si = Si BS De 20 54 F2 AC BD 33 ...6...41.. 7... 
AS 53 69 F7 Fs OD 54 C6 ED 35 51 OC 31 25 BD GD .S....1T..51.1%.. 
37 FR 53 31 CF 48 20 00 65 16 AO 31 57 83 DF OB 7.S1-H .@..1W... 
Si 20 AA 20 7A FH AB BD OB FA SC AO 55 62 3E 68 3. . z....-\.Ub%h 





20 65 90 G2 C2 Fa SC SG 44 O8 35 C4 20 S2 89 Si e....\V0.5. R.1 
PE 60 GE 65 46 44 O08 S35 G/ 37 EB ED SF CF FF 6D -eneFJ.SWW.. ..m 
20 F7 F7 O8 8D SD BD 87 87 BI 25 84 Fil 42 AC GP wc dee eee 


BA 35 E2 2C 66 15 OB OF FF BD FB 62 E4 57 SD 20. S.,......--b6-H., 
BD) EH 8D 9E SE 4B CA 04 C2 $4 F7 25 D2 42 6D SS... 17h. 4.4-Be 
AC 91 £8 3D 62 38 0G OD 31 57 GO 33 OE 79 92 GD ...#be..1N.3.y.. 
29 Ci 6D B7 E6 FB G2 AC 970 FB 00 53 47 90 12 ED j.m..-.-.-.3a.-. 

GE 04 58 D2 OB 20 FF 4F CA 34 20 CF F7 25 04 AC «6K... .0.6 ..%.. 
46D 39 BB 71 84 90 FB Sa 79 20 $1 57 20 C209 79 «mo.....8y 1W ..y | 
i@ BD Gi 40 25 Si C2 52 65 AG D2 FE AA 5S 65 C6 =... G71. Re.-++Se. 
SF 90 71 F7 77 OD BE 57 AC 33 SC 6D 57 F7 40 05  _.q.w- .W. 3\aw. 





20 84 FB 71 BD 41 9E ED 65 FB 20 9E BD 9E 62 40 ee! oe _ 
7F AB 1B FF 35 F7 49 BD OF AE ED 4D 3C 62 65 AA ~...5.1....m¢be. 
20 3 20 CD C2 FA Sa E4° 44 OB 9D DD 20 $1 BD FB => 1408iD... 1. 


| OB 6C AR 48 35 C7 9S 25 25 25 O09 G9 CB 63 CD B7 .1.H5..#77...c.. 
CD SB AO BD 70 69 09 S2 OE SC 23 AS SF 20 ED ED ....fi...<#.0 .. 
20 DPF OB S32 0B 9E S1 FF 74 S35 FB SF 20 61 8D C7 -oe..1.t5.7 a... 
OC 6D 9E Si E2 D2 58 6C GD 45 FH FR 8D 16 32 40 .m.1..X1.C....2¢ 
8D 31 65 41 C2 SC 65 C7 70 29 FA 20 90 BD EF SD .tea.\.-0). .... 
— = 2C BO Cé OD 8D 65 69 25 E2 44 EA 65 20 GB OF 31 pane +@i4.D.c oud 
+ + =20 A2 AS OB 48 A4 OF SB E2 41 20 AC AB 7A C6 21 27 tHe ee A - 
~~ 87 9D 57 S2 G4 69 46D SO OB 20 20 63 75 BD 87 BD W.WReim.. (Gus. 
FG 49 09 OB Cé6 20 20 Si BD D2 C9 44 68 AO 20 CD .i... {.. Dh. - 
SS CE SC Si €7 Si CF 20 92 1C F7 FG 20 460 73 DS U.\1.1. .... Gu. 
7A 20 20 SC 65 C4 00 AG SC F7 20 45 20 EC 75 26 2 \e...%. @ .Us 
44 6E OC 31 S7 18 86 17. 25 20 FB 9D 42 8D 6F OD Dn.1W...% ..b.0. 
42 20 SA C2 74 28 SS AC 20 SF 17 AS 25 AG FZ 42 b Z.tt5. 7..7..5 
S4 OB 97 15 62 F7 20 9G 00 20 9D C6 20 CC OO CD 4...0. «. os «os 
56 65 E4 E7 6E 40 7A 4A OC FF 65 04 68 FA 2B 1C Ve..n@zJ..e-h.+. 
75 &F 57 57 75 00 EO FBR SC CD FA 1F Cé 18 8D OF UOWWs...\..-065- 
E7 87 87 OC 260 65 9D 9F C2 EO 31 2B 20 20 FB 1R) ..-- Guee-1t 2-5 








Figure 4b 


Encrypted Text using the Plain Text in Figure 4a. 
The first four bytes (80 04 00 00) define the Plain 
Text file length (00 00 04 80) in bytes. Usage: 
ENCRYPT ADFGVX.TXT GERMANS 
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56 


63 
20 
65 
6E 
6C 

xs 
79 
65 
20 
61 
20 
65 


79 


£0 £0 20 


36 20 SS 
eo £0 20 
oe 20 2S 
ot 36 £0 
OA OD OA 
63 65 20 
6E 6F 74 
SF 20 73 
74 65 72 
20 20 £0 
77 26 20 


74 20 68 
76 65 20 
6! 6&5 65 
61 74 69 


74 65 72 
m0 ZC 20 
62 65 20 
20 Gl 7/3 
Je 609 (5 
of 30 3503 
20 34 68 
66 69 46C 
76 62 20 
OS 6F 72 
OA 20 29 
6E 20 74 
42 73 £0 
64 75 63 
ie 73 FO 
ZO 20 20 
ae «620 G6 
&3S /7 20 
2U 6E GF 
20 OD OA 
6C 74 20 
20 74 72 
20 77 4&8 
GS 65 20 
20 20 20 
ZU 62 79 
20 G1 6E 
20 61 20 


20 
20 
él 
él 
OD 
20 


20 


20 


20 


OA 


20 


20 


70 
20 
22 


6E 


22 


whee teen 
65 


20 


59 75 


ef fs 


29 20 


20 20 


Z20 20 
20 63 
74 68 
79 20 
20 OD 
GO 7/3 
72 20 
79 FS 
6 70 
20 20 
7a 63 
GF 73 
6D él 
61 22 
20 OF 
oy 22 
te 29 
2U 65 


OA 


20 
20 
20 
29 
oe 


Figure 4c 
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20 


20 
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2Q 
20 
2O 
65 
38 
20 


79 


20 
20 
20 
79 
73 
72 
20 
6E 
73 
61 
OD 
63 
77 
20 
20 
20 


74 


6F 
63 
74 
61 
20 
20 
20 
20 
ig: 
Yas 
a4 


20 
6F 
65 
20 
63 
64 
63 


OD 


64 
65 
66 
63 


78 
78 


20 
09 
J 
rat hed 
OD 
tS 
69 
20 
6F 
290 
20 


20) 


First of 
all, let’s gene 
rate a string of 
repeated charac 
Tere: ics. 
XRRKRKKKMH 
XXKXMXKKKRXKXAKXKKKXRKK 
RKXKXKNKKXKXKAKKKARK 
MXHHKKXKHKM es 
YYYYY 
VYVYYYVYYYVYYYVYYYY 
VYYVYYYYVYVYVYYYYY 
VVVYVVYYYVYYYYY. 
ae Thes 
e sequences wi 
ll be converted 
by the data co 
mpression .. 
routine to 
the following th 
ree character re 
presentation:... 


- 


: < 
x> SYN <S2> = 78 

16 34 (in hex) 
<Y> SYN <S2> = 3S 
9 16 34 {in hex 
Pius No 
tice that we ar 


e not restricted 
to upper case l 
etters and... 
digits oa 
nly. This impl 
ementation does 
not have to re 
MOVE .. 
spaces and punc 
tuation. Thus. 
all ASCII char 
acters (0 to .. 
iZz7) ca 
n be used, as we 
11 as the byte v 
alues from 128 t 
f 255.6... 
The encrypte 
d file will not 
have a one-to-on 
e correspondence 
ae betw 
een these charac 
ters and those p 
roduced by the e 
MEF YVOCION .. 
process, i 
.e@. letter frequ 
ency analysis wi 
li not helo. fh 
1S 24 re 
sult is due to t 
he transposition 
: which may rep 
lace an "a" .. 
in one ca 
se by a "Y" and 
in another case 
by a “*", etc... 


Decrypted Text using the Encrypted Text in Figure 4b. 
DECRYPT ADFGVX.TXT GERMANS 


Usage: 
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then appending this information to the encrypted message. 

In everyday use, this cipher is probably adequate. You can 
make it more secure by using the additions that I have suggest- 
ed. Remember, however, that it all depends on the time value of 
the information that you are securing. If you want to be sure 
that unauthorized persons cannot decipher your information 
for decades, you should use a RSA or a DES cryptosystem. For 
shorter periods, this enhanced ADFGVX cipher should be ef- 
fective: until the discovery of the DES and RSA methods, it was 
claimed to be one of the “best” ciphers around. 


References 
'C. E. Burton, “RSA: A Public Key Cryptography System, 


I would like to thank John K. Taber, the reviewer, for sug- 
gesting three improvements to this cipher system: a better 
random number generator, a more thorough data compres- 
sion technique, and an alternate padding method. 

Mr. Taber first pointed out that my pseudo-random num- 
ber generator has a fairly small period (about 2,796,203) as 
pseudo-random number generators go. The short period 
makes possible a concerted attack on the cipher. Because 
there are 256! ways to fill the 16 X 16 array, and I am using 
only a small fraction of them (based on the period), he sug- 
gested a random number with a period of 2 ** 64, or possibly 
2 ** 128, as being safe for the forseeable future. Note, how- 
ever, that the ran( ) function is a stand-alone module and 
can be replaced by a random number generator of the user’s 
choice, as long as the interface remains unchanged. The 
reader might be interested in knowing that Knuth has devot- 
ed an entire chapter to random numbers, their generation, 
and their testing in his book on seminumerical algorithms. 

Other ways around this problem might be to use truly 
random physical phenomena to generate the random num- 
bers. For example, the Allies during World War II used the 
X-System: a mercury vapor rectifier tube that generated 
wideband thermal noise. The output was sampled into six 
levels of equal probabilities at a 20 msec rate using nonuni- 
form quantization. These random numbers, recorded onto 
plastic disks similar to phonograph records, were used to 
scramble voice messages. (See D. Kahn, “Cryptology and 
the Origins of Spread Spectrum,” JEEE Spectrum, vol. 21, 
no. 9, September 1984, p. 74.) 

But remember, you have to contend with the problem of 
key distribution: sending these random numbers, as well as 
the irrregular transposition key, to the receiver. The value of 
the message and its life time will dictate the extremes to 
which you must go to protect your data. 

Mr. Taber next suggested that better data compression 
schemes exist. Because I used this cipher in particular to 
encrypt data files that consisted of numerous repeated char- 
acter strings, the run length code suited my purposes. As I 
pointed out in the article, Mr. Greenlaw has an excellent, 
public domain data compression package (SQ/USQ). Read- 
ers interested in Huffman compression should obtain a copy 
of Mr. Greenlaw’s source code from your local RCP/M bul- 
letin board system. You could certainly use it to enhance my 
compression scheme. 


Dr. Dobb’s Journal, February 1985 


Parts | and 2,” DDJ, March and April 1984. 

2D. Kahn, The Code Breakers, Macmillan Book Co., 1967. 

3C. Muller-Schloer, “A Microprocessor-based Crypto- 
processor,” JEEE MICRO, vol. 3, no. 5, October 1983, pp. 
5-15. 

4C. C. Foster, Cryptoanalysis for Microcomputers, Hayden 
Book Co., 1982. 


DDJ 
(Listings begin on next page) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 195. 


One reason that I did not use the Huffman algorithm was 
because you have to scan the text twice to obtain the com- 
pression. You use the first scan to obtain the frequency infor- 
mation and to assign the compression codes. The second scan 
compresses the data using the compression codes and saves 
the result on disk. To uncompress the data, you must retain 
the character/compression code substitution pairs (or en- 
crypt the compression codes along with the compressed 
data). If the codes are stored in a known position, they could 
be used to break the cipher. On the other hand, because these 
Huffman characters are variable length codes, they might 
make an attack on the cipher more difficult. Anyway, I did 
not have the need to go to such lengths. 

Finally, Mr. Taber suggested an alternate padding meth- 
od. He recommended the use of an array at least as long as 
the padding needed, say, 256 bytes. The pad array is filled 
with some known pattern (byte by byte). Then each byte of 
the clear text is read and exclusive or’ed with the next ele- 
ment of the pad array in a circular fashion; i.e., when the 
256th byte is used, the process starts over with the first byte. 
When padding is required, the pad bytes are drawn from the 
pad array. This method, or another comparable method, 
avoids the weakness of having a known range of bytes or 
known bytes in the final block. 

I do not believe that most people will have to make any of 
these modifications; the cipher (as written) should be safe 
enough for most uses. For example, MSDOS/PCDOS, unlike 
MP/M-II and CP/M-3, does not allow for making files read- 
only. Thus, users could use this cipher to encrypt those sensi- 
tive personnel files contained on a PC/XT that is used by 
several employees. 

With respect to irregular transposition, Mr. Taber pointed 
out that C. A. Deavours, editor of Cryptologia, has written a 
BASIC program to help determine the cipher “breakpoints” 
(i.e., the possible tops and bottoms for given irregular trans- 
position dimensions). The program uses an “odds in favor” 
approach from statistics to measure when the right break- 
points are determined. Deavours claims that he can break 
the cipher within five to ten minutes using this technique— 
starting from scratch. (Deavours’ article describing the tech- 
nique, along with the program, appears in Cryptologia, vol. 
5, no. 4, October 1981, pp. 247-251.) However, when you 
combine the irregular transposition cipher with the en- 
hanced ADFGVX cipher, the job of breaking the code be- 
comes orders of magnitude more difficult! 
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ADF G VX C. iph er Sys f em (Text begins on page 48) 
Listing One 


/ CHPRHHRHRHRHRHHHHHHRREH HERE HRHHRHHRHHHSRSR BEEBE HEHE EEE EE EH ES FF BBB RBBB FF BF FF 


HR mst 
HHH Copyright 1983, Charles E. Burton, Denver, Colorado Hae 
Bye sae 
### All rights reserved. Fermission granted to use this software for ### 
ee te personal, non-commercial purposes only. BHe 
HHH aH He 
HHHHHHHHHHHHHHHHHHHHHRHHHHPHHHHHFHHHHEHHEHEEEE RSE BEER EHH EHH BH BREE FH BRS & / 

/* 

* PROGRAM NAME: SHUFFLE.C 

* PURPOSE: Card shuffling routine -- 

* Shuffles a "deck" of cards. The number of cards is NOCARDS. 
* Random number routine -- 

* Generates a random interger 

* 

* LANGUAGE: C 

* AUTHOR: CER 

* USAGE: SHUFFLE (POSITION, VALUE) 

* FOSITION CI] -- returns as the position of Card #I in the Deck. 

* VALUE CJ] -- returns as the value of the Jth Card in the Deck. 

* RAN (MAX) 

* MAX -- integer specifying the maximum random integer that can 

* be returned. 

* ARRAYS USED: FOSITIONCNOCARDS], VALUECNOCARDS] 

* EXTERNALS: 

* UPDATE HISTORY: INITIAL RELEASE -- 11/25/83 CER 

*/ 


/*® Card shuffling routine */ 


shuffle (position, value) 
char position(€is /* FOSITION CNOCARDS] on entry */ 
char valuell]:i /* VALUE CNOCARDS] on entry */ 


3 
char temps 
rnt<Aczs 


for (i=0Of i < NOCARDS: itt+) /* initialize CARDS values */ 
Value [Ca] = 15 
for (i=O3 i < NOCARDSs i++) /* shuffle */ 
{ 
j = ran(NOCARDS): /* swap index */ 
temp = value Cid: /* swap CARDS values */ 
value Cid = value Cj 
value [€j] temps 
for (i=O3; i < NOCARDS; i++) /* get positions of cards */ 
position C value CijdJ J] = i: 


5 
[LHRH HERE KEE HHH EEK EHH HHH HEHEHE HEHEHE HK EKER HEHEHE HEHEHE EEE EEE EEE EEE RE REEEE / 


/* 
Random number generator -- 
adapted from the FORTRAN version 
in "Software Manual for the Elementary Functions" 
by W.J. Cody. Jr and William Waite. 
%/ 


ran (max) 
int max3$ 


{ 
static long int iy 


1000015 


ly #= 1255 


iy -= (iy/2796203) * 27962033 
return (int) (max * iy / 2796203))5 
+ 


End Listing One 


(Listing Two begins on page 60) 
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Powerful in circuit emulation, priced 
well within your grasp. That's NICE." 


NICE may be only 3” square and %”’ thick, but it hands you full speed, 

real-time emulation—over 50 emulation functions, software breakpoints,t 

all memory addresses and all I/O ports. : 1 4 
Just plug NICE directly into the target MP socket and any RS232 terminal 

for system development, troubleshooting, debugging or testing . . at home, 

in the lab or in the field. Pp ~~ Te. 
And NICE hands you all this performance, portability. and versatility for only 

(AC) ME teed oa ollic limos (esau uncinuameliOkomiiaiviv ae rice een gte 
Ori Brom vetimeut(ouceeramtci ters. aS | 

your VISA or Mastercard num- 

ber: (800) NICOLET outside 

CA, or (415) 490-8300 in CA. 

Or send your 

check or 

money 

order 

to NICE, 

Nicolet 

te leweyetcen, 

Corporation, 

PAG Solttalss 

Avenue, Fre- 

— mont, CA 94539. 


"Payment by Check, moncy 
order, VISA or MasterCard. 
NICE is a trademark of Nicolet 
Paratronics Corporation —_y 
®Z80 is a trademark of Zilog, In 





Circle no. 60 on reader service card. 


FULL SCREEN SYMBOLIC DEBUGGER 


“THE SINGLE BEST DEBUGGER 
FOR CP/M-SO. A TRULY 
AMAZING PRODUCT.” 


LEOR ZOLMAN 
AUTHOR OF BDS C 

[] Complete Upward Compatibility with DDT 
[] Simultaneous instruction, register, stack & memory displays 

] Software in-circuit-emulator provides write protected memory, 

execute only code and stack protection. 
[] Fifteen single keystroke commands 
L] Thirty day money back guarantee 
} On-line help & 50 page user manual 


ONLY $195. 
IBM PC VERSION AVAILABLE SOON! 
i ei ta RAN sc ct et TES RE HR POS ODE CSET DONE TIO 


SOFT ADVANCES — 


P.O. BOX 49473 AUSTIN, TEXAS 78765 (512) 478-4763 

















x) 
», ————— J 





Circle no. 63 on reader service card. 









DeSmet 
C 


8086/8088 


Development 1 09 


Package 


FULL DEVELOPMENT PACKAGE 
- Full K&R C Compiler 

- Assembler, Linker & Librarian 

- Full-Screen Editor 

- Execution Profiler 

- Complete STDIO Library (>120 Func) 


Automatic DOS 1.X/2 X SUPPORT 
BOTH 8087 AND S/W FLOATING POINT 
OVERLAYS 


OUTSTANDING PERFORMANCE 
- First and Second in AUG ‘83 BYTE 
benchmarks 





















Examine & change variables by 
name using C expressions 


- Flip between debug and display 
screen 


- Display C source during execution 
- Set multiple breakpoints by function 


or line number 
















DOS LINK SUPPORT 


- Uses DOS .OBJ Format 
- LINKs with DOS ASM 
- Uses Lattice* naming conventions 


Check: CO Dev. Pkg (109) 
(1) Debugger (50) 
1) DOS Link Supt. (35) 


SHIP TO: 








WARE 


CORPORATION 





P.O. BOX C 
Sunnyvale, CA 94087 


(408) 720-9696 


All orders shipped UPS surface on IBM format disks. 
Shipping included in price. California residents add 
sales tax. Canada shipping add $5. elsewhere add 
$15. Checks must be on US Bank and in US Dollars 
Call 9 am. - 1 pm. to CHARGE by VISA/MC/AMEX. 


Circle no. 18 on reader service card. 


ADF G VX E. Nncr yp t I on (Listing Continued, text begins on page 48) 


Listing Two 


/ HHHHRHHRRRR SPHERE EHHE AREER PHERH BHR HESHHHHH HEHEHE SAHHRAEHRRRRHH EH 


### fe cce b 
HEH Copyright 1983, Charles E. Burton, Denver, Colorado ae tr at 
Hed HEH 
### All rights reserved. Fermission granted to use this software for ### 
HHH personal, non-commercial purposes only. any 
Samad Rast 
HHFHHFHRRSHHRHHHHEHHH HEH HEHEHE RRRSHRSHRHAHHHEHHHRESAHHAHREERHRHHHREHHERHH SH / 
/* 

* FROGRAM NAME: FWSORT.C 

* FURPOSE: Password sorting routine -- 

* Sorts password in largest to smallest character ordeer. Used to 

* specify the column order to pull out columns in ‘TRANSFOSE() and 

* UNTRANSFOSE (). 

~ 

* LANGUAGE: C 

* AUTHOR: CEB 

* USAGE: FWSORT(FASSWORD) 

* FASSWORD -- character array containing the encryption/ 

* decryption key. 

* 

* ARRAYS USED: FASSWORDL] 

* EXTERNALS: 

* UPDATE HISTORY: INITIAL RELEASE -- 11/25/83 CEE 

%/ 
ROGTING -mMinixyy) “COeb <> ty)? Ce) SA 


pwsort (password) 
char password(]; 


{ 
int i.j, temp; 


pwlen = strlen(password); /* get length of PASSWORD string */ 
if (pwlen «< MINFPWLEN) /* PASSWORD too short ¥*/ 
£ 


u 


printf ("\n*#*# Password: %s is too short ( «< 5 characters ) ***\n", 


password) s 
eBxit(o)$ 


Ppwlen = min(pwlen,MAXPWLEN)$ /* truncate FASSWORD if necessary */ 


for (i = OF i < pwlens i++) /* initialize Password Column Order */ 
Pwcolumnorderlil] = is 

for (i = O§ i < pwlen —- 1s i++) /* sort Password by Column Order */ 
for (j = i 4°43 <-pwlens. j++) 


if (password(Cpwcolumnorderlild] < password(Cpwcolumnorder(j])) 
/* largest to smallest character order */ 


Bs 
L 


temp = pwcolumnorder lil: 
Pwcolumnorderlild = pwceolumnorderl 313 
pwcolumnorder(Cj] = temp; 


. 
4 


Listing Three 


/KHRPARAEH HE FH HEHEHE BBE HEH HERR HEH HHH ARERR HHSSHHHHEHHHAHHHHAHHEHHRREHRHHH 


##+# sae 
### Copyright 1983, Charles E. Burton, Denver, Colorado eas 
HHH Hae 
### All rights reserved. Permission granted to use this software for ### 
ReH personal, non-commercial purposes only. Hae 
HEE aoe 
HHHAHHHEHHHHR HEHEHE HHAEHSHRHHHEHHHHHH HAHAHA HHHEHHHHHHHHEHHBHHHRHRHEHHBEK/ 
/* 

* FROGRAM NAME: ENCRYFT.C 

* FURPOSE: Encryption using the ADFGVX Cipher -- 

* re. C.C. Foster, "Cryptoanalysis for Microcomputers," Hayden Hook 

* Co. (Rochelle Park, NJ), p. 222. 
60 


End Listing Two 
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LANGUAGE: C 
AUTHOR: CER 
USAGE: ENCRYPT «<filename> «password 
<filename> -—- File Name to be encrypted 
<password? -- 3 to 10 character key to be used for encryption 


ARRAYS USED: FILENAMEC2O], ENCFNAMED20],FASSWORDC11], BUF 10110], BUF2C0110], 
FOSITIONCNOCARDS], VALUECNOCARDS], FWCOLUMNORDERCMAXPWLEN] 

EXTERNALS: FWSORT(). SHUFFLE(), RAN() 

UPDATE HISTORY: INITIAL RELEASE -- 11/25/83 CEB 


ke KK KK KOK KOK OK 


ss 


%/ 
#include "stdio.h" 
#define NOCARDS 256 


#define NO oO 
#define YES 1 


mainfargc,argv) 
char *argvCijs 
int argcs 


t 
static char filenamel20], encfnamel20],password(11],*stri 
static char c,bufiliioj, buf 20110], positionlCNOCARDS),valueCNOCARDS]; 
int i1.fnlen,pwlen,blklen,idx, 
done = NO: 

long int ftell (),dummys 
union 

{ 

long int xlongs 

char xbytelCsizeof (dummy) 43 

> filelens 
FILE *fopen().#fpin, *fpout$ 


if ..Carge.'!= 3) 


{ 


printf#("\nUsage: ENCRYPT «<filename> <password?\n")3$ 


@xit(d)s 
} 
for (1=0, idx=sizeof (filename), str=argvl[1]3 /* get file name to use */ 
*¥str $= *\O* && 1 < 145 it+, str++) 
{ 
filenamelil=encfnamelil=*strs /* get file name */ 
if (*str == *."*) /* start of “ext? found? */ 


idx=i+l15 /* get index to start of ¢ext> */ 
filenameli J=encfnameli I=" \O" 5 /* terminate file name */ 
fnlen=ii /* get length of file name */ 


switch (fnlen-idx) /* based on length of “<ext>? */ 


{ 
case 1: 
/* only one character in text> */ 
encfnamelidx+2]="\0"* 5 /* move EQS over one character */ 
fnlent+t+s /*® account for added character ¥*/ 
case 2: 
case 3: 
/* two or three characters in “<ext? ¥*/ 
encfnamelidx+1]="Y" 5 /* make 2nd character of “ext*® a 7?Y" #/ 
breaks 
default: 
if (idx == fnlen) /* no <ext>, but *.* exists */ 
strcpy (encfnametfnien, "YYY") 5 /*® add “ext> */ 
else if (idx == sizeof (filename) ) /*® no * and no <ext>? */ 
strcpy (encfnamet (fnlentt+) ~".YYY") 3 /*® add <ext> #*#/ 
else /* invalid file name */ 
{ 
printf ("\n*** Bad <filename?: “Zs ***\n", filename) 
exit(do)s 
fnien += 33 /* account for added "YYY" */ 
breaks 
:! 
for (1=0, str=argv[l2]s *str '= *\O* && i *< sizeof (password)-1s i++) 


passwordli J=*(strtt) 5 /* get Fassword */ 
passwordlid="\0O"3 /* terminate Password */ 
pwlen=is5 /*® get length of Fassword */ 


(Continued on next page) 
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ADF G VX Ciph er Sys f em (Listing Continued, text begins on page 48) 
Listing Three 


blklen=pwlen*pwlentpwlen/2s /* get length of block to read/write for 
file I/0 to get irregular columns for 
password */ 


if (blklen '= 2¥(blklen/2)) /* BLELEN odd? */ 
blklent++s /* make it even ¥*/ 
if ((fpin=fopen(filename,"r")) == NULL) /*® cannot open input file? */ 
{ 
printf ("\n*** Cannot open %~s *#*#*\n", filename) ; 
eBx1it(a)s 
if ((fpout=fopen  (encfname,"w")) == NULL) /* cannot open output file? */ 


‘ 

printf ("\ne** Cannot open %~s #***\n",encfname) 
fclose(fpin)s /*® close input file */ 

exit (Oa) $s 


% 
4 


fseek (fpin,OL,2)3 /*® find end of file ¥*/ 
filelen.xlong=ftell (fpin)3 /* get length of plain text file */ 
fclose(fpin)s /* close the input file */ 
fpin=fopen(filename,"r") 3 /* re-open the input file */ 
for (1=05 1 < sizeof (filelen.xlong):3 i++) 
putce(filelen.xbytelid, fpout) s /* save file length at beginning of 
output file ¥*/ 
shuffle (position, value); /* randomize cipher character set */ 
pwsort (password): /* get transposition for row/column pairs */ 
do /* encrypt plain text file ¥*/ 


{ 
for (i1=O3 i «= blklens i++) /*® read a block of plain text */ 
{ 
if ((c=compress(fpin)) == EOF) /* Compress text, EQF found? */ 


Ns 
done=YESs; /*® indicate last pass of plain text */ 
Le had /*® at least one value in BUFI */ 
Soo SD A. OL hers... 2443 /* fill in rest of BUFI */ 
£ 
c=ran(NOCARDS): =/* generate a random char */ 
buf iCit++J=position(€cl]/163 
/* char row position */ 
bufiCid=position(cIZ“Z163 
/* char column position */ 
E 
breaks 
ER FL IA BFS see 
buf i Cit++iJ=position(€ci/163 /*® char row position */ 
buflCid=position(€cIZ1635 /* char column position */ 


if< 4). 78 BUPs tel Y 3e7 
transpose (bufl,buf2,blklen)s /* encrypt using Password */ 
for (1=93 1 «< blklens i += 2) /* write a block of encrypted 
text */ 
pute (valuelid*buf20idi+buf2Citijd,fpout) s 
3 
while (done == NO); 
fclose(fpin)s: /* close files */ 
fclose(fpout)s 
if ((fpout=fopen(filename, "r+")) == NULL) /* cannot open output file? ¥*/ 
{ 
printf ("\n*** Cannot open %s ***\n", filename): 
exit (Od); 


% 
4 


else /* overwrite all records so that they cannot be recovered */ 
£ 
while (filelen.xlong-—) /*® Null out plain text file */ 
putc (OxF6, fpout) § /* use formatting data character to null */ 
fclose(fpout) 5 /* close the file */ 


unlink (filename) 3 /* erase plain text file */ 
printf ("\nEncryption completed\n"); 


J 


(Continued on page 64) 
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‘‘This is a beautifully 
referer Ulait=anczie mm laleracvelle) hy, 
comprehensive set of 
C Function Libraries. ”’ 
— Dr. Dobb’s Journal 


P Pee 
. “Aes 3 
a / £2 
ae c ad I 
a 
i aaa? hs 
stat, ; > wr” 
1 


The one and only adult Lisp system for CP/M users. 


Waltz Lisp is a very powerful and complete implementa- 
tion of the Lisp programming language. It includes 
features previously available only in large Lisp systems. In 
fact, Waltz is substantially compatible with Franz (the Lisp 
running under Unix), and is similar to MacLisp. Waltz is 

y perfect for Artificial Intelligence programming. It is also 
~ most suitable for general applications. 
i Much faster than other microcomputer Lisps. ¢ Long integers (up to 611 digits). Selectable radix ¢ True dynamic 
# character strings. Full string operations including fast matching/extraction. © Flexibly implemented random file access. 
A ° Binary files. ¢ Standard CP/M devices. * Access to disk directories. © Functions of type lambda (expr), nlambda 
fH (fexpr), lexpr, macro. ® Splicing and non-splicing character macros. ¢ User control over all aspects of the interpreter. 
BA ° Built-in prettyprinting and formatting facilities. © Complete set of error handling and debugging functions including 
Zé) user programmable processing of undefined function references. ¢ Virtual function definitions. © Optional automatic 
loading of initialization file. © Powerful CP/M command line parsing. * Fast sorting/merging using user defined 
comparison predicates. ¢ Full suite of mapping functions, iterators, etc. © Assembly language interface. ¢ Over 250 
functions in total. ¢ The best documentation ever produced for a micro Lisp (300+ full size pages, hundreds of 
illustrative examples). 


Waltz Lisp requires CP/M 2.2, Z80 and 48K RAM (more recommended). All common 5"' 
and 8" disk formats available. 


Version 4.4 © * 
(TM) (Now includes Tiny Prolog $] eo 


written in Waltz Lisp.) 


POWER PACKS, 
aa ae 


COMPLETE 
SOURCES 


ie PACK |: Building Blocks | 
250 Functions: DOS, 
Printer, Video, Asynch 





RO ODE *Manual only: $30 (refundable with order). All 
INTERNATIONAL = foreign orders: add $5 for surface mail, $20 for 


—_—$——————— airmail. COD add $3. Apple CP/M and hard sector 
15930 SW Colony Pl. formats add S15. 


Portland, OR 97224 
sat Laboratories. Call free | -800-LI P-4000 Dept. #1] 


CP/M* Digital Research Corp. In Oregon and outside USA call 1-503-684-3000 





Circle no. 73 on reader service card. B PACK 2: Database 
100 Functions: B-Trees, 


Variable Records 


ie PACK 3: Communications 
135 Functions: Smart- 
modem™, Xon/Xoff, 
NV/CoYe {sta pkey Ammen Viele dan 


THE PROGRAMMERS SHOP 


helps compare evaluate and find products. Get answers. 


SERVICE: FREE LITERATURE 


One free call covers all programmer's software. Ask for a 
‘‘Packet'' on: ‘‘Al’’, BASIC, C, COBOL, Debuggers, Edi- Introducing-C : C Interpreter and training system. 
tors, FORTH, FORTRAN, Libraries, PASCAL, UNIX/PC or Nice. Thorough. PCDOS. Only $95. 


30 ‘‘addons’’ for ‘‘C’’. 
FORTRAN OUR 
Runsori 
“oe” Language PRICE 
MS Fortran - Improved MSDOS 249 


MSDOS: C86 - 8087, reliable DR Fortran-86 - full ‘77’ 8086 259 
Lattice 2.1 - improved - 30 addons F77L - by Leahy - Nice. MSDOS 449 
Microsoft C2.x 3 RM Fortran MSDOS 545 


Williams - debugger 
instant C Interpreter, fast, full, debug Sa BS 


CPM80: Ecosoft C-now solid, full, faster 

MAC: Megamax - fast, full, tight LIBRARIES: BTRIEVE ISAM MSDOS 
Cilndex+ - ISAM, source, no royalt. 8086 
Runson CSHARP Realtime - source, full MSDOS 
BRIEF - Intuitive, flexible PCDOS CUtil by Essential MSDOS 
PMATE - powerful 8086 DATABURST - Screens-C, BAS MSDOS 
VEDIT - full, liked 8086 GraphiC - 4200 x 3100, source MSDOS 
Greenleaf C - thorough MSDOS 
ARTIFICIAL INTELLIGENCE HALO Graphics - fast, full PCDOS 
TOOLS: MULTILINK - multitask PCDOS 
IQLISP- full 1000K RAM = PCDOS Polylibrarian-thorough MSDOS 
TLC LISP - with ‘‘classes’’, nice MSDOS PolyMAKE-manage, compiles PCDOS 
MicroProlog - by Logic Prog. Asser. MSDOS Profiler-86-easy to setup, symbols MSDOS 
PROLOG-86 - standard, Learn fast MSDOS XENIX - ‘‘true S3’’, rich, + C-MSDOS PC 

EXSYS - Expert System PCDOS 


: Note: All prices subject to 
| Feature _ Call for a catalog and solid valueé| chance without notice. 


Naat hacia 8 0 0) wt 4 2 1 = 8 0 0 8) Mention this ad. Some prices 


Registers, symbols, ™ are specials. 
THE PROGRAMMER’S SHOP ; 
line nums, 2 screen, 128-D Rockland Street, Hanover, MA 02339 All formats available. 


PCDOS. $295. Visa Mass: 800-442-8070 or 617-826-7531 MasterCard Ask about POs, COD. 


ae PACK 4: Building Blocks II 
100 Functions: Dates, 
Text Windows, 

Pull-down Menus 
Data Compression 


# PACK 5: Mathematics | 
35 Functions: Log, Trig, 
Square Root 


PACK 6: Utilities | $99 
Archive, Diff, Replace, Scan, 
Wipe (Executable Files only) 


Lattice™, Microsoft™, DeSmet™. 
Cl-86™ Compilers on IBM PC/XT/AT™ 


Small and Large Memory Models. 


Credit cards accepted 
($7.00 handling/Mass. add 5%) 


ME SOFTWARE 
re Nes 
@ inc 


sLotoW ={=10)(0)¢0 me) igs1>)| 
Burlington, Mass. 01803 
(617) 273-4711 


NOVUM ORGANUM 





Circle no. 67 on reader service card. 
Circle no. 90 on reader service card. 
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Listing Three 


L EHH EHEHEHKEHEHHEEEHHEHREKEEKEHHEHHHHEEHEHHHHHHEHEHEEEREEEHERHEEEHEHEHHEERHEEE KHER REHE/ 


/* Multiple Character Compression. 


Encodes repeated characters. 


The Stream is 


byte for byte pass-through except that SYN is encoded as SYN/O and repeated 


byte values are encoded as Byte/SYN/Count, 
is 
function in SO@.C 


where Count >} = 3G. 


(squeezer) by Richard Greenlaw. 


This routine 
a state machine representation and is modeled after the GETNCR() 


*/ 

#define NOHISTORY © /* do not consider previous input */ 

#define SENTCHAR 1 /* LASTCHAR sent, no lookahead yet */ 

#define SENDNEWC 2 /* NEWCHAR sent, previous sequence done */ 
#define SENDCNT Pi /* NEWCHAR sent, SYN sent, send COUNT next */ 
#define SYN OX16 /* duplicate character indicator */ 


compress (stream) 


FILE *streams 


{ 

static char state = NOHISTORY: /* states */ 

static int counts /* Count of consecutive identical characters */ 
static int lastchar,nextchars 

Switch (state) 


{ 
case NOHISTORY: 
/* no relevant history */ 


state = SENTCHARS 
return (lastchar = getc(stream)); 
breaks 

case SENTCHAR: 


/* LASTCHAR is sent, need to lookahead */ 


switch (lastchar) 

case SYN: 
/* actual SYN character found */ 
state = NOHISTORY: 
return (0)5 
breaks 
EGF: 
/* end 
return 
breaks 


case 
of file found */ 
(lastchar) 5 


default: 
/* any other character found */ 
for (count=15s (nextchar = getc(stream)) lastchar 
count < 255s countt++) /* count like characters 


5 
switch (count) 


{ 

case 1: 
/*® one character found */ 
return (lastchar = nextchar)s: 
breaks 

case 2: 
/* two characters found */ 
state = SENDNEWC: 
return (lastchar)s 
breaks 

default: 
/* three or more characters found */ 
state = SENDCNTSs 
return (SYN)5 
breaks 

} 

breaks 


% 


case SENDNEWC: 


/* previous sequence complete, send NEWCHAR */ 


state = SENTCHAR: 
return (lastchar = nextchar): 
breaks 


case SENDCNT: 


64 


Rk 
%*/ 
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/* sent SYN for repeat sequence, send COUNT */ 
state = SENDNEWC:s 
return (count)s 
breaks 
default: 
printf ("\n*¥#** Bad STATE in COMPRESS() **#\n")5 
exit¢d)s 
breaks 


es 


t 


J HHH HHH HHH HII EEE EEE EE EEE IEE EEE EE EEE EEE EEE EEE ER EEE EEE / 


/* Transpose via Columns based on Fassword. This routine takes a string and 
transposes the characters to column order based on a password. The password 
length is the width of the table and the password has been sorted to 
specify the column order to pull out the columns. */ 


#define MAXFWLEN 10 
#define MINFWLEN 5& 


static int pwlen.pwcolumnorder C(MAXFWLEN]IS 
#include "FWSORT.C” 
transpose (fram,to,1len) 

char fromid, tetJ3 


int lens 


{ 
eae Oe eee 


1 = OF 


for (i = Of j © pwlens j++) /* transpose in column order */ 
for (k = pwceolumnorder(lCjids &k < lens k += pwlen) 
/* transpose characters */ 
toflit++] = fromCkds 
} 

#include "SHUFFLE.C" End Listing Three 
[isting Four 

/ KHHPRPHRSEHFFE HFEF ASFEEEE EERE RREHHHHHEEEE HERS RHEE HARES SE BH FH 
oat HH 

Ft st tt Copyright 1983, Charles E. Burton, Denver, Colorado SHR 
### He 
### All rights reserved. Fermission granted to use this software for ### 
### personal, non-commercial purposes only. HRS 
pee Hae 
HHHHHHHAHA SHRP RHSHEHHHH SHH EAE HHREAHAHHRHHHHH HHH AHHH RS HRHHHHRH REE EH / 
/* 

* FROGRAM NAME: DECRYPT.C 

# .PURPOSES Decryption using the ADFGVX Cipher -- 

* re. C.C. Foster, "Cryptoanalysis for Microcomputers," Hayden Book 
% Co. (Rochelle Fark. NJ), p. 222. 

“ 

~ 

* LANGUAGE: C 

* AUTHOR: CER 

* USAGE: DECRYFT «<filename> <password> 

*% “<filename> -- File Name to be decrypted 

* <password> —-- 5 to 10 character key to be used for decryption 
* ARRAYS USED: FILENAMECL20],ENCFNAMELC20],F ASSWORD(C11],BUF10110],BUF2C110], 
* FOSITIONCNOCARDS], VALUECNOCARDS], FWCOLUMNORDERCMAXFWLEN] 

* EXTERNALS: PWSORT(),. SHUFFLE() 

* UPDATE HISTORY: INTTIAL RELEASE -- 11725783) CER 

%/ 


#include "stdio.h” 
#define NOCARDS 2356 


#define NO O 
#define YES 1 


(Continued on next page) 
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ADF G VX Ciph er Sys f em (Listing Continued, text begins on page 48) 


Listing Four 


static char password(iijd,position(CNOCARDS], valueCNOCARDS]; 
static int blklen; 


main (argc,argv) 
char *argvl]5 
int argc; 


{ 
static char filenamel20],decfnamel20],*str.c: 
int i.fnlen,pwlen,idx3 
long int dummy; 
union 

t 

long int xlona; 

char xbytelCsizeof (dummy) 13 


> filelen: 
FILE *fopen(),#*fpin, *fpouts 


if (arge '= 3) 
cf 
printf#("\nUsage: DECRYFT <filename> <password?\n") § 
exit(d)s 


% 
4 


for (1=0, idx=sizeof (filename), str=argv[1]3; /* get file name to use */ 


“str f= "\O° && i < .14§- i++, str++) 

{ 

filenameli J=decfnameliJ=*str; /* get file name */ 
27 ARSC: eae D /*® start of <ext> found? */ 


idx=itl; /*® get index to start of “ext? */ 
filenameli J=decfnameli J]=*\O"°5 /* terminate file name */ 
fnlen=1i5 /* get length of file name */ 


switch (fnlen-id»x) /*® based on length of “ext> *#/ 


{ 
case 1: 
/* only one character in «<exts> */ 
decfnamelidx+2]="\O"3 /* move EQS over one character */ 
fnlent+ts 7* account for added character */ 
case 2: 
case 3: 
/* two or three characters in “¢<ext: #*/ 
decfnamelCidx+1]="Y"3 /* make 2nd character of ¢ext> a *Y* */ 
breaks 
default: 
if (idx == fnlen) /* no text>, but *.* exists */ 
strcpy (decfnametfnien, "YYY") 5 /*® add «ext? *#/ 
else if (idx == sizeof (filename) ) Ji pes i and: no <ext>?. #/ 
strcepy (decfnamet(fnient++) ,".YYY") 5 /*® add <ext> */ 
else /* invalid file name */ 
£ 
printf ("\n*** Bad «filenames: “%s5 ***\n",filename)s: 
exit(Od) 5 
fnlen += 33 /*® account for added "YYY" */ 
breaks 
for (1=9, str=argv[2]13 *str '= *\O* && i < sizeof (password) -1is i++) 


password(li J=* (str++) 5 /*® get Fassword */ 
passwordli j=" \0° 5 /* terminate Fassword */ 
pwlen=i5 /* get length of Password */ 


blklen=pwlen*pwlentpwlen/2s /* get length of block to read/write for file 
I/O to get irregular columns for both 


passwords */ 
if (blklen '= 2*(blklen/2) ) /* BLELEN odd? */ 
blklen++3; /* make it even */ 


if ((fpin=fopen(decfname,"r")) == NULL) /* cannot open input file? */ 
¢ 
printf ("\n*** Cannot open %s ***\n",decfname) : 
exit(da); 
if ((fpout=fopen(filename,"w")) == NULL) /* cannot open output file? */ 


L 


printf ("\n*** Cannot open Z%s ***\n",filename) 3 
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(LISP) 


Artificial Intelligence Language 
UO-LISP Programming Environment 
The Powerful Implementation of LISP 
for MICRO COMPUTERS 


LEARN LISP System (LLS.1) 
(see description below $39.95 


UO-LISP Programming Environment 
Base Line System (BLS.1) $49.95 


APC MEGABASIC 


‘The Mercedes-Benz of BASICs 


8086/88 IBMPCAT MS-DOS 
CP/M-86 MP/M-86 TURBODOS 
NETWORK COMPATIBLE: PCNET, 3-COM, NOVELL, ETC. 


MEGABASIC reduces program development time and memory 
requirements dramatically, executes up to 6 times faster than 
MBASIC interpreter, is highly portable among virtually all micro- 
computers, and is supported by outstanding documentation. 






















Includes: Interpreter, Compiler, 
Structure Editor, Extended Numbers, 
Trace, Pretty Print, various Utilities, 
and Manual with Usage Examples. 
(BLS. 1) expands to support full system 
and products described below. 


BENEFITS: 


e@ Addresses up to 1 Mb programs, data. 

®@ Executes as fast as many compilers. 

®@ Superior debugging facilities. 

@ BCD arithmetic eliminates rounding errors. 






UO-LISP Programming Environment: The Usual LISP Interpreter Functions, 
Data Types and Extensions, Structure & Screen Editors, Compiler, Optimizer, LISP & 
Assembly Code Intermixing, Compiled Code Library Loader, I/O Support, Macros, 
Debug Tools, Sort & Merge, On-Line Help, Other Utility Packages, Hardware and 
Operating System Access, Session Freeze and Restart, Manual with Examples expands to 
over 350 pages. Other UO-LISP products include: LISPTEX text formatter, LITTLE 
META translator writing system, RLISP high level language, NLARGE algebra system. 
Prices vary with configurations beyond (BLS.1) please send for FREE catalog. 
LEARN LISP System (LLS. 1): Complete with LISP Tutorial Guide, Editor Tutorial 
Guide, System Manual with Examples, Full LISP Interpreter, On-Line Help and other 
Utilities. LEARN LISP fundamentals and programming techniques rapidly and effectively. 
This system does not permit expansion to include the compiler and other products listed 
above. 

LISP Tutorial Support (LTS.1): Includes LISP and Structure Editor Tutorial 
Guides, On-line Help, and History Loop. This option adds a valuable learning tool to the 
UO-LISP Programming Environment (BLS.1). Order (LTS.1) for $19.95. 

REQUIRES: UO.-LISP Products run on most Z80 computers with CP/M, TRSDOS or 
TRSDOS compatible operating systems. The 8086 version available soon. 

TO ORDER: Send Name, Address, Phone No., Computer Type, Disk Format Type, Package 
Price, 6.5% Tax (CA residents only), Ship & Handle fee of $3.00 inside U.S. & CN, $10 outside 
U.S., Check, Money Order, VISA and MasterCard accepted. With Credit Card include exp. date. 
Other configurations and products are ordered thru our FREE catalog. 


Northwest Computer Algorithms 
P.O. Box 90995, Long Beach, CA 90809 (213) 426-1893 


@ Simple to use—No complicated field statements. 
@ Source code protection with “scramble” utility. 
@ Easy-to-use strings (up to 64K long). 


THE COMPLETE PACKAGE: 


— Developmental version of MEGABASIC in precisions up to 18 digits. 

—Run-time semi-compiler version. 

—Compaction utility reduces program size. 

—Cross-reference generator lists all variables, arrays, subroutines, 
functions, etc. 

—Function library with fast sorts, yes/no prompt routines, matrix 
manipulation and other routines ready to plug into your programs. 

=—Configuration program. 

—380-page manual with more than 2,500 index entries. 
Complete package: $400, with 30-day money back guarantee. 


Suite 425 
egg oor tony 4600 Duke Street 
PLANNIN Alexandria, VA 22304 
1-800-368-2248 
CORPORATION on Virginia, 1-703-751-2574) 


Dealer inquiries invited. VISA or MasterCard accepted. 






























Circle no. 61 on reader service card. Circle no. 3 on reader service card. 







ALL PC OWNERS/USERS 
HOME & BUSINESS, USA 


o 
a= 










western union western union western union 
















BAS ¢2*""" 1200 BAUD MODEM COUP 
Complete PC Communications Package for LUJate(Tae- YAU" 


MODEM 


Auto-dial / Auto-answer / Hayes commands / 2-year warranty 
PLUS 


Sj OU} J j= tfere] 08 COMMUNICATIONS AND 


ONLINE DATABASE ACCESS SOFTWARE 
PLUS 


PT a NBS sie ail ag fe)\\| TO DIALOG, BRS, NEWSNET, COMPUSERVE 
AND MANY MORE ONLINE DATABASES WITH NO INITIAL FEES 


PLUS 
EasyMW ink 








WESTERN UNION 


One Keystroke Access / No Monthly Minimums 
PLUS 


A 3-MONTH FREE TRIAL SUBSCRIPTION TO 


MAGAZINE 


CALL 24 HOURS 1-800-541-0199 - In Wyoming 1-800-442-0982 








Circle no. 4 on reader service card. 


A DF G VX C, ipher Sys f @C/7) (Listing Continued, text begins on page 48) 


Listing Four 


fclose(fpin)s: /* close input file */ 
exit (Od); 
} 
for (i=O3 i < sizeof(filelen.xlong); i++) 
filelen.xbytelil=getc(fpin) 3 /* get original file length */ 
shuffle(position, value): /* randomize cipher character set */ 
pwsort (password) ; /* get transposition for row/column pairs */ 
while (((c=expand(fpin)) '= EOF) && (filelen.xlong-—) ) 
/* decrypt & expand the file */ 
pute te, tpout).s /* write plain text */ 
fclose(fpin): /* close files */ 
fclose(fpout) $ 
printf ("\nDecryption completed\n");: 


4 


LEER HEH HER HEHEHE HSE HHH HHH ETE ET IEEE EE EEE IEEE EHS / 


7* Multiple Character Expansion. Decodes compressed characters. The Stream 


is byte for byte pass-through except that SYN/O is decoded as SYN and 
Ryte/SYN/Count is decoded as Byte repeated Count times. This routine 
is a state machine representation and is modeled after the GETNCR() 
function in S@.C (squeezer) by Richard Greenlaw. 


*/ 

#define NOHISTORY © /* do not consider previous input */ 

#define SENTCHAR 1 /* LASTCHAR sent, no lookahead yet */ 

#define SENDRFT ae /* LASTCHAR sent, SYN found, found COUNT, repeat 
LASTCHAR */ 

#define SYN OX16 /* duplicate character indicator */ 


expand (stream) 
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FILE *stream: 


f 


static char state = NOHISTORY: /* states */ 


static int counts /* Count of consecutive identical characters ¥*/ 
static int lastchar,nextchar; 


Switch (state) 
‘ 
case NOHISTORY: 
/* no relevant history */ 
Switch (lastchar = getcnxt (stream) ) 
{ 
case SYN: 
/* must be a SYN character, check */ 
switch (getcnxt (stream) ) 
case OO: 
/* SYN character found ¥*/ 
return (lastchar) $; 
breaks 


default: 


/* bad SYN character found */ 
Pprint# ("\n*#** Had SYN in EXPAND () HHE\I") GS 
exit(d); 
breaks 
} 
breaks 
default: 
/*® another character found ¥*/ 
state = SENTCHAR: 
return (lastchar); 
breaks 
>; 
breaks; 
case SENTCHAR: 
/* LASTCHAR is sent, need to lookahead */ 
Switch (lastchar) 
case EOF: 
/* end of file found */ 
return (lastchar);3 
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Listing Four 


default: 
/*® any 
switch 


is 


L KEKE HEHEHE EEE HE ERE EHEEHRREEEHEEHEHHRHEHKEHHHEHEHEHHH KR HE EEK EKER RHEE / 


/*® Get next character from input stream. 
untranspose it and distribute the block 


getcnxt (stream) 


breaks 


{ 


other character found */ 
(nextchar = getcnxt (stream) ) 


case SYN: 


/* repeating characters found */ 
switch (count = getcnxt (stream) ) 
{ 
case 0°: 
/* SYN character found */ 
state = NOHISTORYs 
return (nextchar)s 
breaks 
default: 
/* actual COUNT found */ 
state = SENDRFT; 
count -= 23 /* adjust for 2 sent 
characters */ 
return (lastchar) i 
breaks 


break 


default: 


is 


breaks 


3 


case 


7* another character found */ 
return (lastchar = nextchar)3 
breaks 


SENDRFPT : 
/* repeat sequence, send LASTCHAR COUNT times ¥*/ 
af {count 7? <b) 
£ 
/* keep sending LASTCHAR */ 
count-—s 
return (lastchar)s$ 
} 
else if (count == 1) . 
£ 
/* final LASTCHAR */ 
state = NOHISTORYS 
return (lastchar)s: 
} 
else 


£ 
L 


/* problem with COUNT */ 
print€ ("\n*** Had COUNT in EXPAND() *##\n")5 
exit (dad); 


% 
J 


breaks 


default: 


od 


printf ("\n*¥** Bad STATE in EXPAND() **#\n") 3 
exit(O) 5 
breaks 


FILE *stream: 


r 


static char bufilCiioj,buf2Ci1lod,cs 


imi i-¢ 
static int done = NO, 
bufidx = sizeof (bufl): 
if ((bufidx = blklen) && ‘(done == NOQ)) 
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Must read a block of data, 
a character at a time. 


*/ 


(Continued on next page) 
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ADF G VX Ciph er Sys f em (Listing Continued, text begins on page 48) 


Listing Four 
; /* need to read more characters into BUFI? */ 
for (1=O3 i < blklens i++) 7/* read a block of encrypted text */ 
= ((c=getc(stream)) == EOF) /* - GOOF found? */7 
tn ae /* indicate last pass of plain text */ 
breaks 


oe o$0 1a BOP, 367 
bufiCit+J=position(€ecI/163 /* char row position */ 
bufiCild=position(clZ“7Z16: /* char column position */ 


a 


if (done == NO) /* last Klock meaningless, ignore it? */ 


= 
LS 


untranspose (bufl, buf2,blklen)s /* decrypt with Password */ 


bufidx=O3§ /* reset Hlock Index to start of BUFI */ 


, 
4% 
4 


if (bufidsx < blklen) /* characters still available? #*/ 
{ 
bufidx += 23 /* point toa next row/column pair */ 
return (valueli1é#buf2Cbufidx—-2i+buf 2Cbufidx-ij])3 


/*® return a decrypted character */ 


% 
J 


else if (done == YES) /* no more characters available & 


return (EQF) 5 /* indicate done */ 


else /* character stream problem */ 
{ 


printf ("\n##* Synchronization error in GETCNXT() #*##*#\n")5 


exit (QO) § 
} 


+ 
Bs 


L EKER HH HEE EE HEE EEE EERE EERE ERE EERE EER EERE RRREEE/ 


/* Untranspose via Columns based on Fassword. This routine takes a string and 


transposes the characters to row order based on a password. 
length is the width of the table and the password has been sorted to 


The password 


specify the column order to put back the columns before pulling out rows. */ 


#define MAXPWLEN 10 
#define MINFWLEN & 


static int pwlen,pwcolumnorder  CMAXFWLENI; 
#include "FWSORT.C" 
untranspose (from,to, len) 


char fromCj,tolis 
int lens 


/* transpose characters */ 


.f 
0 Li ta KS 
1 = 03 
for (j = OF j * pwlens jtt) /* transpose in column order */ 
for (k = pwcolumnorder(€j]s k «< lens k += pwlen) 
toCk] = fromlit+t+ds 
> 


#include "SHUFFLE.C" 
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End Listings 
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More dBASE Tips and Techniques 





called DB-SQZ.CMD that will 

squeeze and tokenize any command 
file just as DBCODE does in Ashton- 
Tate’s RUNTIME package. My cus- 
tomers who already owned dBASE II 
could run these “‘scrambled”’ com- 
mand files and not have to purchase 
RUNTIME. (DB-SQZ.CMD may ap- 
pear in a future column or call me fora 
modem download. ) 

Unfortunately, every customer that 
owned dBASE II also owned an IBM 
PC. In their wisdom Ashton-Tate 
made the default command file exten- 
sion different for the MSDOS/IBM 
version of dBASE II. CP/M command 
files are of the type .CMD and IBM 
command files are .PRG. So I have this 
wonderful program that protects my 
command files from tampering, but I 
can’t use it unless I change every file 
type from .CMD to .PRG on every disk! 

There should be some way to keep 
the filenames as they are and make 


este a dBASE II command file 


But wait. Now I want to go the other 
direction! Make the IBM dBASE II 
program look for .CMD instead of 
PRG command files. Furthermore, I 
need each direction for several versions 
(2.4, 2.41, 2.41 Z80) of dBASE I. This 
could get confusing. 

Finally, I came up with the idea of 
writing the program in the listing 
(page 72) called MAKEFLIP.XXX that 
will ‘‘write’’ a customized version of 
FLIP.IT for any version of dBASE II al- 
most automatically! Now, I only need 
to have a copy of MAKEFLIP.XXX 
when I go to work in any dBASE II 
environment. 

On any new installation I execute 
MAKEFLIP.XXX one time and it gen- 
erates FLIP.IT for whatever machine it 
is on. Now, whenever I need to change 
the command file default extension I 
type .DO FLIP.IT. 

MAKEFLIP.XXX is not only a very 
useful utility, but you should get some 
good insight into how to write code 


How to write dBASE code 
that writes dBASE code. 


dBASE II change what it looks for 
when it meets a DO FILENAME. 

The best solution was to make 
dBASE II look for the file type I told it 
to look for; that is, have my CP/M 
dBASE II look for .PRG instead of 
.CMD command files. 

This is easy enough because the file 
type is stored as plain ASCII text and 
easily patched with the POKE com- 
mand. I wrote a simple command file 
called FLIPIT that changed the de- 
fault file type using the POKE 
function. 


Gene Head, Head Quarters, 2860 NW 
Skyline, Corvallis, OR 97330. 
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that writes code. This could be espe- 
cially helpful in custom installations. 
Before I get calls and letters telling 
me that my search routine is too loose 
and could find a bogus patch, let me 
say that I already know that. However, 
I have tried MAKEFLIP.X XX on sever- 
al types of micros and most versions of 
dBASE II with complete success. The 
chances of finding an invalid patch lo- 
cation are too small to justify addition- 
al code. Besides, you will know right 
away if you found a bad patch area. It 
won't work! DD} 


(Listing begins on next page) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 199. 


by Gene Head 
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dBASE Lis ting (Text begins on page 70) 


Another dBASE II goody fron: 
Head Quarters 


Gene Head 

2868 NW Skyline Drive 
Corvallis, Oregon 97338 
(583) 758-8279 


For non-commercial use only. If you use this utility 

to help you develop any software that earns you money 
(even in your own business) send me $5.60. 

It's a fair price to pay and worth a clear conscience. 


* 


eee eR KR KR KEE KR RK RE KR RAR KR KER EK KRE KAR KR HER KER KE 


Program name --> MAKEFLIP.XXX 


(DO NOT change the name of this command file) 
(Execute it as .DO MAKEFLIP.XXX or it may not work) 


* * * This program generates the command file FLIP.IT * * * 


You only need to run this program ONCE to create FLIP.IT, - 
After you create FLIP.IT put a copy on your dBASE II disk. 
Then when you wish to change default command file extension 
type .DO FLIP.IT 


+eeeeeeeee © He + +e + FH + HH HH He HH HH BH 


Example: 


To run CP/M command files defaulted to .CMD under MS-DOS simply 
type .DO FLIP.IT. To change back to the .PRG default, type the 
same thing again, .DO FLIP.IT. 


Likewise, to run MS-DOS command files defaulted to .PRG under 
CP/M, type .DO FLIP,IT. To change back to .CMD default, again 
type .DO FLIP.IT. 


+> eneeene ee & 


* * 


SET TALK OFF 

* This range works well for dBASE II versions 2.4, 

* 2.41 and 27-88 2.41. For other versions they may have to change. 
STORE '12308' TO LOW 

STORE '12588' TO HIGH 

* First get the range of program RAM to search 

* for the default extension 


STORE 'Y' TO CHOICE 
DO WHILE CHOICE = ‘y' 


STORE T TO RANGE 
ERASE 


DO WHILE RANGE 
@ 12,18 SAY ‘Enter START of search area. Suggest --> '; 


GET LOW PICTURE '99999! 

@ 14,18 SAY ' Enter END of search area. Suggest --> '; 
GET HIGH PICTURE '99999' 

READ 


STORE VAL(LOW) TO MLOW 
STORE VAL(HIGH) TO MHIGH 


IF MLOW >= MHIGH .OR. MHIGH > 65809 .OR. MLOW < 198 
@ 28,18 SAY 'SEARCH AREA OUT OF RANGE, TRY AGAIN...’ 
ELSE 


STORE F TO RANGE 
ENDIF MLOW >= MHIGH .OR, MHIGH > 658698 .OR. MLOW < 188 
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ENDDO WHILE RANGE 


ERASE 


* This is not the most accurate testing but the chances are 
* very high that it will only find what we are looking for. 


@ 12,10 SAY 'SEARCHING' 
STORE F TO FOUND 


DO WHILE (.NOT. FOUND) .AND. MLOW < MHIGH 


IF PEEK(MLOW) <> 67 .AND. PEEK(MLOW) <> 88 
STORE MLOW+1 TO MLOW 
LOOP 
ELSE 
IF PEEK(MLOW+1) <> 77 .AND. PEEK(MLOW) <> 82 
STORE MLOW+1 TO MLOW 
LOOP 
ELSE 
IF PEEK(MLOW+2) <> 68 .AND. PEEK(MLOW) <> 71 
STORE MLOW+1 TO MLOW 
LOOP 
ELSE 
STORE T TO FOUND 
LOOP 
ENDIF PEEK(MLOW+2) <> 68 .AND. PEEK(MLOW) <> 71 
ENDIF PEEK(MLOW+1) <> 77 .AND. PEEK(MLOW) <> 82 
ENDIF PEEK(MLOW) <> 67..AND. PEEK(MLOW) <> 886 


ENDDO WHILE (.NOT. FOUND) .AND. MLOW < MHIGH 


* If-we found our patch area create a command file called FLIP.IT 
IF FOUND 
@ 12,18 SAY ‘CREATING COMMAND FILE --> FLIP.IT ' 
STORE STR(MLOW,5) TO PATCH 
SET ALTERNATE TO FLIP.IT 
SET ALTERNATE ON 
SET CONSOLE OFF 
[* FLIP.IT] 
(+) 
FLIP.IT WILL FLIP COMMAND FILE EXTENSION .CMD <--> .PRG] 


{[* FPLIP.IT IS DESIGNED FOR THOSE WHO DEVELOP PROGRAMS USING CP/M] 
[* dBASE II TO RUN UNDER MS-DOS dBASE II AND GET TIRED CHANGING] 
[* THE COMMAND FILE EXTENSIONS FROM .CMD TO .PRG AND VICE-VERSA!] 


[* FLIP.IT CAUSES YOUR CP/M DBASE II TO ACCEPT .PRG AS DEFAULT] 
[* COMMAND FILE EXTENSION, IT CAN ALSO LET YOUR MS-DOS dBASE IT] 
[* ACCEPT .CMD AS THE DEFAULT COMMAND FILE EXTENSION, ] 


IN EITHER CASE JUST TYPE .DO FLIP.IT] 


[IF PEEK(]+PATCH+[) = 67] 

{ POKE ]+PATCH+[, 88, 82, 71] 

[ ? 'DEPAULT COMMAND EXTENSION --> .PRG'] 
[ELSE] 

[ IF PEEK(]+PATCH+[) = 88] 

[ POKE ]+PATCH+[, 67, 77, 68] 

[ ? 'DEFAULT COMMAND EXTENSION --> .CMD'] en 
[ ELSE] 

[ ? ‘ERROR CHANGING DEFAULT EXTENSION'] 


? [ENDIF] 
? 


ODO OD OD 9 9 OV OV 90 8 8 8 oF 8 Oo 9 od od OW 8 
* 


SET ALTERNATE OFF 
SET ALTERNATE TO 
SET CONSOLE ON 


STORE 'N' TO CHOICE 

ELSE 

@ 12,18 SAY ‘CAN NOT LOCATE PATCH AREA WITHIN; 
THE SPECIFIED RANGE,’ 

@ 14,16 SAY ‘INCREASE THE SEARCH RANGE.; 
TRY AGAIN? (Y/N) --> ' GET CHOICE 

READ 

ENDIF FOUND 


ENDDO while CHOICE = 'yY' 


ERASE 


e*ekeekekekrketkee«ek&krkrkeek«reke«#enreenrk eee 


* end of source code for MAKEFLIP.XXX * 
zkeeekkkek kee ee OHeOKllUKllUKlClUKhlUMhlUhThlUhRh hu 
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(End Listing) 
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Modula-2/86, Version 1.04 

Company: Logitech, 805 Veterans 
Bivd., Redwood City, CA 
94086 

Operating System: MSDOS and 
CP/M 86 

Price: $495.00 (Discounts are 
available for educational insti- 
tutions and user groups. — Ed.) 

Circle Reader Service No. 135 

Reviewed by Michael Schmidt 


There has been much to-do about Mo- 
dula-2 recently, with the theme that 
Modula-2 is the successor to Pascal. 
But how does a new Modula-2 compil- 
er compare with an extended Pascal 
compiler that’s been around a while? I 
was curious to find out. 

I pitted the Logitech Modula-2/86 
compiler, version 1.04 (not a public re- 
lease), against the Microsoft MS-Pas- 
cal compiler, version 3.13. MS-Pascal 
is a highly extended version of the Pas- 
cal language, designed to facilitate sys- 
tems programming. Many of the ex- 
tensions of MS-Pascal correspond to 
standard features of Modula-2. 

All tests were performed on an 8 
MHz 8086 Seattle Computer Products 
S-100 system, running MSDOS 2.0. 
The system was equipped with 224K of 
memory, two Qume DT-8 floppy disk 
drives that store 1.2Mb each, and a Ze- 
nith Z19 terminal. The system was not 
equipped with an 8087 coprocessor. 


Documentation 

The Logitech manual represents what 
I would call a “user’s guide,” with cer- 
tain parts of a “reference manual” in 
numerous appendices. With this orga- 
nization, two-thirds of the documenta- 
tion is in appendices! The preface re- 
fers. the reader. to “the ‘:Boak 
Programming In Modula-2 by N. 
Wirth for a definition of the Modula-2 
language. However, implementation 
specifics and peculiarities of the SYS- 
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TEM and library modules in the Logi- 
tech implementation are not described, 
of course, in Wirth’s book, and Logi- 
tech reduces them to the lowly status 
of appendices. 

What do I have against appendices? 
The problem lies not with appendices 
per se but with the authors, who use 
them here as an excuse to supply sub- 
standard documentation. Gone are any 
requirements that material be present- 
ed in a logical order or that coherent 
English appear on each page or that a 
70-page section show subdivisions with 
page numbers in the table of contents. 

The largest appendix consists of the 
definition modules of the Logitech li- 
brary, with comments. Unfortunately, 
these comments are not always 
enough! For example, the rather com- 
plex library module FileSystem seems 
to defy comprehension, at least mine. 
A similar file system appears as one of 
two alternate designs (one for RT-11, 
one for Lilith) in Wirth’s book but 
with little supporting text—again just 
a definition module. It should be obvi- 
ous to anyone struggling through Mo- 
dula-2 definition modules that they are 
not self-documenting and require a lit- 
tle English explanation. 

Part of the difficulty I had under- 
standing these library modules result 
ed from undefined terminology bor- 
rowed from an alien (non-MSDOS) en- 
vironment. For instance, what the heck 
is a “medium”? And how am I sup- 
posed to know that I should precede a 
filename with ““DK:” to select the de- 
fault drive? These peculiarities are bad 
enough by themselves, but they be- 
come downright unmanageable when 
they are not documented. 

The “user’s guide” portions of the 
Logitech documentation are well writ- 
ten and complete, with the following 
exceptions. A discussion of the runtime 
support (RTS) was missing alltogether. 
This program resides in the file 





M2.EXE, and handles program load- 
ing, overlays, coroutine transfers, and 
runtime errors. It produces a number 
of runtime error messages, which are 
not listed anywhere in the manual. 
Also, the section on linking overlays 
was not sufficiently descriptive. 

The MS-Pascal documentation is 
more hefty. It consists of both a user’s 
manual and a separate, much larger, 
language reference manual. All the in- 
formation I have ever needed to know 
about MS-Pascal is there somewhere! 
The mere bulk of these manuals would 
tend to overwhelm the first-time user, 
but actually, the organization is logi- 
cal, and once you have read through 
the manuals a few times, you can re- 
trieve information quickly. 

Neither set of manuals serves as an 
introduction to the language that its 
compiler implements. However, the 
MS-Pascal documentation is logically 
complete by itself, whereas the Logi- 
tech documentation requires Pro- 
gramming In Modula-2 for a formal 
definition of Modula-2. The saving 
grace of the Logitech documentation is 
Logitech’s technical support. Whenev- 
er I reached an impasse, a quick phone 
call on the Logitech ‘hotline’ produced 
my answer. With Microsoft, I am not 
even aware of a number I can call. 


Installation 
The MSDOS version of the Logitech 
compiler is distributed only on three 
5%-inch double-sided floppies, using 9- 
sector/track formatting. Logitech was 
not able to satisfy my request for an 8- 
inch distribution disk. I was able to add 
a minifloppy drive to my system (most 
MSDOS systems use the minifloppies 
anyhow), but for a minority of MSDOS 
systems this will present a problem. 

The Logitech manual instructs the 
user to place the command 

device = ANSI 

in the CONFIG.SYS file. This is re- 
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quired only for systems with non-ANSI 
console devices. Because my Z19 is set 
to ANSI mode, no special driver is 
needed. Only the Logitech debugger 
generates ANSI escape sequences; you 
can operate both the compiler and 
linker without an ANSI console device. 

The rest of the installation depends 
on whether you are using floppies or a 
Winchester. Actually, all that matters 
is that you have a mass-storage device 
that can hold about 1Mb, which is 
what a Modula-2 system disk requires. 
My 8-inch floppies were adequate. If 
you have a system with only 360K 54- 
inch floppies, you will need three dis- 
kettes in addition to the one holding 
your source code: a system disk with an 
editor on it, a compiler disk, and a link- 
er /debugger disk. Good luck! 

If you have adequate mass storage, 
you are instructed to place the follow- 
ing commands in your AUTOEXEC- 
BAT file: 

SET M2LIB=\M2LIB\SYM 

SET M2LNK=\M2LIB\LNK 

SET M2REF=\M2LIB\REF 

SET M2MAP=\M2LIB\MAP 
I preceded each of the above symbols 
with a drive designator (M2LIB = 
A:\M2LIB\SYM) so that I did not have 
to set my default drive to the Modula 
system disk. The files on the distribu- 
tion disks are copied to the above sub- 
directories or to the subdirectory 
\M2LOD for the executable files. Un- 
fortunately, no corresponding symbol 
for this latter subdirectory exists (the 
command SET M2LOD=A:\M2LOD 
does nothing), and if the default drive 
does not contain the Modula system 
disk, the complete path name of the ex- 
ecutable file must be given. In addi- 
tion, the RTS in the file M2.EXE must 
be copied into a subdirectory selected 
by the MSDOS PATH command (in my 
directory structure this was A:\BIN). 

Two example programs are provided 
on the distribution disk. When I first 
tried to compile them, I received an er- 
ror message “cannot load...” during 
linking. What disturbed me was that 
this message was not in the manual. I 
suspected a lack of RAM and on closer 
examination discerned that the man- 
ual requires 192K of program RAM, 
which does not include the roughly 
32K required by MSDOS 2.0. I up- 
graded my system to 256K and had no 
further troubles. To avoid such confu- 
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sion, Logitech should admit to a re- 
quirement of 256K of system RAM. 

The Logitech distribution is config- 
ured for an IBM PC. The source code 
for several modules, which might need 
modification for a different environ- 
ment, the object files for the compiler, 
linker, and debugger themselves, and 
the assembler source code of the RTS 
modules are standard distribution! A 
rather cryptic comment in an appendix 
states that the user should study the 
source code for these and make 
changes as required. 

Despite my different hardware con- 
figuration, I found that none of the li- 
brary modules had to be recompiled. 
However, the process/interrupt mod- 
ule of the RTS proved to be incompati- 
ble with my system. It assumes a single 
8259A interrupt controller, addressed 
at I/O ports 20 and 21H, as is the case 
in the IBM PC. My system has multiple 
cascaded 8259As and nothing at I/O 
ports 20 and 21H! This module plays 
with the interrupt controller for the 
TRANSFER and IOTRANSFER opera- 
tions to implement an obscure feature 
of Modula-2 that allows numeric “pri- 
ority” module parameters to turn mod- 
ules into “monitors,” as in Concurrent 
Pascal. Logitech interprets module 
priorities as corresponding to different 
interrupt masks for a single interrupt 
controller. Luckily, the compiler, link- 
er, and debugger do not seem to use 
prioritized modules or TRANSFER 
statements and thus can be run with- 
out modification of M2.EXE. My sys- 
tem would require nontrivial modifica- 
tion of this assembler module to get 
these Modula-2 features working. 

The installation of the MS-Pascal 
compiler is more straightforward. All 
that is required is to copy the three 
passes of the compiler, one of the li- 
brary files, and the special “LARGE” 
version of MS-LINK to a system disk. 
These files can be combined on a single 
Pascal system disk complete with an 
editor—even a 360K 54-inch floppy. 
The MS-Pascal compiler (and linker!) 
require less than 160K total system 
RAM to operate. 


Compiling and Linking 

Definition and implementation mod- 
ules are compiled separately by the Lo- 
gitech compiler. The output from com- 
piling a definition module is accessed 


automatically when compiling an im- 
plementation module. You can invoke 
all four passes of the Logitech compil- 
er entirely from the command line with 
the command: 

M2 COMP <filename> 
The overlay mechanism of the RTS 
loads each pass of the compiler into 
memory separately. For this to work, 
however, the default drive when the 
compiler is invoked must be the drive 
that contains the directory \M2LOD. 
To get around this and to automatically 
invoke some of the compiler switches, I 
created the following command proce- 
dure (MOD.BAT) to invoke the 
compiler: 

M2 A:\M2LOD\COMP 

%1/R-/S-/T-/E 

Similarly, I created a command proce- 
dure MLNK.BAT to invoke the linker: 

M2 A:\M2LOD\LINK %1 

The compiler and linker use the first 
eight characters of a module name to 
search for compiled definition modules 
and object modules. This has the ad- 
vantage of automating the search for 
library modules. 

As is apparent from the compile and 
link times shown in the Figure (page 
76), the Logitech compiler and linker 
are slow. A further annoyance stems 
from the Logitech compiler’s organi- 
zation into four passes, the first three 
of which can generate syntax-related 
error messages. Whether the compila- 
tion is aborted on an error after either 
of the first two passes or not can be 
configured by the user. This situation 
is made worse by the compiler’s lack of 
certain types of error recovery. For in- 
stance, the compiler is case sensitive: 
all keywords are in upper case. It is 
very easy to forget and write “to” in- 
stead of “TO” in a FOR loop. Even 
though it should be an easy matter for 
the compiler to flag this as a warning 
and continue, such errors are treated 
as fatal. 

The MS-Pascal compiler can also be 
invoked entirely from the command 
line. However, each pass of the compil- 
er must be invoked separately; no com- 
mand procedure is provided which 
automates this process. I have written 
such a command procedure (PAS- 
.BAT) to invoke the required passes of 
the compiler: 

PAS1 %1,%1,,%1; 
IF ERRORLEVEL 0 DEL %1.LST 
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IF ERRORLEVEL 4 ingless error messages. cessed by various MSDOS functions in- 

GOTO FINISHED The MS-Pascal compilation unit | clude the AX, BX, CX, DX, SI, DI, 
PAS2 that most closely resembles the Mo- | DS, and ES registers! I wrote a general 
‘FINISHED dula-2 definition and implementation | purpose MSDOS interface procedure 


This command procedure would 
need enhancement to use PAS3, which 
provides a pseudo-assembly language 
listing of the code generated. In order 
to link multiple modules using Micro- 
Soft’s LINK utility, the following com- 
mand format offers the greatest flexi- 
bility (the /NO parameter suppresses 
the automatic search for the Pascal li- 
brary on the default path): 

LINK/NO @program 
A “program” file must be created for 
each program you are developing. It 


modules is the “unit” concept bor- 
rowed from UCSD Pascal. A unit also 
consists of a definition part and an im- 
plementation part. However, the defi- 
nition portion of an MS-Pascal unit is 
not itself compiled; it is included as 
part of the source of its implementa- 
tion, as well as any compilation units 
importing it, usually by means of the 
INCLUDE directive. This allows for 
“version” errors, resulting in changes 
in such definition parts. 


for MS-Pascal in assembly language 
(Listing One, page 78) which allows 
access to all these registers, and seems 
to do the job quite nicely. Logitech, on 
the other hand, supplies a much more 
versatile library function, DOSCALL, 
which gives full access to all MSDOS 
functions and worked properly on all 
my test cases. 

I wrote a general purpose clock 
module in both Modula-2 and MS- 
Pascal (Listing Two, page 80, and 
Listing Three, page 82). It reflects the 


would contain the following entries: Benchmarks capabilities of MSDOS by providing a 
program+ I decided to use the system clock to | function GetTime, which returns the 
module! + time my benchmarks. Although both | time through a record. I then wrote a 
module2 + Logitech Modula-2 and MS-Pascal | simple stopwatch module (Listing 
moduleN provide library functions, I didn’t care | Four, page 84, and Listing Five, page 
program for the format of either. Instead I de- | 86) which provides two procedures, 
program cided to write a GetTime procedure | Start and Stop. This module allowed 
A:\LIB\PASCAL that would perform an MSDOS func- | me to measure the benchmarks to 


Having to maintain this additional file 
can sometimes be a nuisance. 
Although the MS-Pascal compiler is 
not blindingly fast, it is certainly toler- 
able—over twice as fast as the Logi- 
tech compiler. The MS-Pascal compil- 
er is organized as three passes, only the 
first of which generates syntax-related 
error messages. The error recovery of 
the compiler is adequate, and some 
common syntax errors are automati- 
cally corrected, generating only warn- 
ings. However, some simple types of 
errors, such as a missing END, will cas- 
cade and cause an avalanche of mean- 


tion call. I immediately ran into prob- 
lems with MS-Pascal. 

MS-Pascal provides a library func- 
tion (DOSXQQ) to invoke MSDOS 
functions and two global variables 
(CRCXQQ and CRDXQQ) to pass pa- 
rameters through the CX and DX reg- 
isters. This function does not work 
properly: the two global variables are 
not updated from the CX and DX reg- 
isters following a MSDOS call. Fur- 
thermore, even if this mechanism 
worked as advertised, it still would not 
be powerful enough to handle all 
MSDOS functions. The registers ac- 


within a hundredth of a second. 

I ran three benchmarks: the ever- 
popular Sieve of Eratosthenes (Listing 
Six, page 86 and Listing Seven, page 
88), the Fibonacci number benchmark 
(Listing Eight, page 88, and Listing 
Nine, page 90), and a skeletal text fil- 
ter program (Listing Ten, page 92, and 
Listing Eleven, page 93) that does 
nothing more than copy files. Both of 
these compilers produced very fast, 
highly optimized code (see the Fig- 
ure). The code generator of the MS- 
Pascal compiler performed better on 
the Sieve benchmark, but not by a 


benchmark © | compile | 
_& compiler | | time 
| (sec) | 


link code | linked 
size | aide 


ytes) | (bytes) 


execute 
time 
(sec) 


1. Sieve of Eratosthenes| | 
Logitech Modula-2/86 82 | 243 21474 5.25 
Microsoft MS-—Pascal 26 i 36 161 - | 19518 4.87 

2. Fibonacci Numbers | | | | | 
dogitech Modala-2/66] ©41° | @8 =|. 141 | - 21362 | 17.67 
Microsoft MS-Pascal | 25 | a | d07 . | 19470 | 23.18 

3. Text Filter _ | | | 

Logitech Modula-2/86| 87 ; 69 
Microsoft MS-Pascal | 27 | 38 | 


| 
21694 | 
19742 | 


391 
333 


7.83 
18.32 


Figure 


Benchmark Results. 
All tests performed on 8MHz 8086, all run-time error-checking disabled. 
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wide margin. The Logitech compiler 
won the other two benchmarks by a 
somewhat wider margin. However, 
both of these languages produced 
bulky executable files by the time the 
linkers were through with them. 

One thing that is not apparent from 
the benchmarks is that the Logitech 
linker produces very small executable 
files when none or only a few of the 
library modules are imported. The li- 
brary module InOut (which most pro- 
grams access) causes large executable 
files because it pulls in the FileSystem 
module; if no file support is needed, the 
Terminal module produces small exe- 
cutable files. This feature would be of 
value for writing certain types of utili- 
ty programs, such as a program to con- 
tinuously display the time. 


Miscellaneous 

Logitech supplies a post mortem sym- 
bolic debugger with the compiler pack- 
age. This program allows the user to 
examine the procedure-calling se- 
quence, last statement executed, and 
value of all data items following a ‘core 
dump.’ Such a core dump is performed 
automatically by the RTS following a 
runtime error or a ctrl-C typed by the 
user during execution. This provides 
significantly more diagnostic informa- 
tion than the simple error message pro- 
duced by MS-Pascal on a runtime er- 
ror. However, it is not as powerful as 
an interactive runtime debugger; such 
a product has been announced by Lo- 


gitech, however. 

Both Logitech and MicroSoft 
should be commended for the large 
number of useful library modules sup- 
plied with their compilers. Despite 
quirks in both libraries, these give the 
programmer a tremendous headstart 
in developing an application program. 

Both of these compilers provide for 
floating-point support, either using an 
8087 coprocessor or with an 8087 emu- 
lation library. I did not perform a 
benchmark on the emulation library, 
because anyone who is truly interested 
in fast floating point would be using an 
8087, anyway. 

The Logitech compiler does not sup- 
port a 32-bit integer type, as does MS- 
Pascal. This is unfortunate because a 
16-bit integer is too small for numer- 
ous applications (random number gen- 
erators, for instance). This problem 
will undoubtedly be resolved in a fu- 
ture release, as recent revisions to the 
Modula-2 language by N. Wirth in- 
clude LONGCARD and LONGINT 
data types. 

My final complaint about the Logi- 
tech compiler, which I have already 
touched on, is that when a ctrl-C is 
typed during compilation or linking, 
about 15 seconds elapse and a large 
MEMORY.PMD file is created for the 
debugger in the default directory. This 
can be changed only by reassembling 
the RTS after changing one of the pa- 
rameters in the source code. Of course, 
post mortem debugging of application 


programs requires a version the RTS 
with this feature left intact. I would 
suggest that Logitech distribute two 
executable versions of the RTS. 


Conclusion 

The Logitech Modula-2/86 package is 
clearly a winner. It provides a com- 
plete, relatively mature Modula-2 en- 
vironment for the 8086 that is competi- 
tive with the best 8086 compilers 
available. In fact, a comparison of its 
speed on my system with published 
benchmarks on the Lilith shows them 
to be almost even in execution time. 
Perhaps most importantly, Logitech 
provides the kind of technical support 
necessary for a professional software 
development package. 

On the other hand, MS-Pascal is 
still very much a viable systems lan- 
guage. It would certainly be preferable 
on a small system: it requires 96K less 
RAM and can perform adequately on a 
system equipped only with 5%-inch 
floppies. In addition, its faster compile 
and link times would be appreciated on 
the much slower IBM PC. 

I suppose the acid test is this: Which 
of these compilers will I be using from 
now on? This brings us back to the be- 
ginning of the article. Modula-2 really 
is the successor to Pascal, and the Lo- 
gitech compiler is a thoroughly usable 
implementation. I have made the 
switch! 

DD] 
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*‘C/80.. . the best software buy in America!’’ 


Other technically respected publications like Byte 
and Dr. Dobb’s have similar praise for The Software 
Toolworks’ $49.95 full featured ‘C’ compiler for CP/M® 


and HDOS with: 


e(/O redirection 
- ® command line expansion 


e execution trace and profile 


 e initializers 


__¢@ Macro-80 compatability 


~ # ROMable code 
e and much more! 


‘*We bought and evaluated over $1500 
. .C/80 is the one 


— Dr. Bruce E. Wampler 
Aspen Software 


worth of ‘C’ compilers. 
we use.’’ 


— MICROSYSTEMS 


In reviews published worldwide the amazing $49.95 
C/80 from The Software Toolworks has consistently 
scored at or near the top — even when compared with 


compilers costing ten times as much! 
The optional C/80 MATHPAK adds 32-bit floats and 


longs to the C/80 3.0 compiler. Includes I/O and trans- 
cendental function library all for only $29.95! 


C/80 is only one of 41 great programs each under 


sixty bucks. Includes: LISP, Ratfor, assemblers and 


over 30 other CP/M® and MSDOS programs. 


author of “Grammatik’’ 
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For your free catalog contact: 


The Software Toolworks' 
15233 Ventura Blvd., Suite 1118, 
Sherman Oaks, CA 91403 or call 818/986-4885 today! 


CP/M is a registered trademark of Digital Research. 


Circle no. 91 on reader service card. 
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NEW FEATURES 


(Free update for our early customers!) 
e Edit & Load multiple memory 
resident files. 
e Complete 8087 assembler 
mnemonics. 
e High level 8087 support. 


Full range transcendentals 
(tan, Sin, Cos, arctan, 
logs and exponentials) 


Data type conversion and 
I/O formatting. 

¢ High level interrupt support. 
Execute Forth werds from with- 
in machine code primitives. 

e 80186 Assembler extensions for 
Tandy 2000, etc. 

e Video/Graphics interface for 

Data General Desktop Model 10 


FORTH 


e Fully Optimized & Tested for: 
IBM-PC IBM-XT IBM-JR 
COMPAQ EAGLE-PC-2 
TANDY 2000 CORONA 
LEADING EDGE 


(Identical version runs on almost all 
MSDOS compatibles!) 


e Graphics & Text 
(including windowed scrolling) 


e Music - foreground and 
background | 

includes multi-tasking example 
Includes Forth-79 and Forth-83 
File and/or Screen interfaces 
Segment Management Support 
Full megabyte - programs or 
data 


¢ Complete Assembler 
(interactive, easy to use & learn) 


e Compare 
BYTE Sieve Benchmark jan 83 
HS/FORTH 47sec BASIC 2000 sec 
w/AUTO-OPT 9sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 
FASTEST FORTH SYSTEM 
AVAILABLE. 
TWICE AS FAST AS OTHER 
FULL MEGABYTE FORTHS! 


(TEN TIMES FASTER WHEN USING AUTO-OPT!) 


HS/FORTH, complete system only: $250. 
we Visa ‘Mastercard S&@® 
Add $10. shipping and handling 


HARVARD 
SOFTWORKS 


P.O. Box 2579 
Springfield, OH 45501 
513/390-2087 
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R e Vi ews (Text begins on page 74) 
Listing One 


INTERFACE; UNIT SYSTEM ( 
Registers, 
DOSCALL) ; 


TYPE 


Registers = RECORD 
ax, bx, cx, dx: WORD; 
si, di: WORD; 
ds, es: WORD; 

END; 


PROCEDURE DOSCALL (VAR r: Registers); 


{ 
loads 8086 registers from r 


invokes MS-DOS 
loads r from 8086 registers 


} 


END; {SYSTEM} 
NAME SYSTEM 


PUBLIC DOSCALL 


RGSTRS STRUC 

rax DW $ 
rox DW s 
rex DW ? 
rdx DW ? 
rsi DW ? 
rdi DW ? 
rds DW ? 
res DW ? 


RGSTRS ENDS 


DOSCODE SEGMENT 


ASSUME CS: DOSCODE 


DOSCALL PROC FAR 


PUSH BP ; save calling frame pointer 
MOV BP, ‘SP ; get doscall frame pointer 
PUSH DS ; save calling data segment 
MOV BP, 6[ BP] ; get rgstrs pointer 
; load 8086 registers from structure 
MOV AX, [BP] .rax 
MOV BX, [BP] .rbx 
MOV CX, [BP] .rcx 
MOV DX, [BP].rdx 
MOV SI; [BP] «rei 
MOV DI, [BP] .rdi 
MOV DS, [BP].rds 
MOV ES, [BP].res 


(Continued on page 80) 
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QUALITY SOFTWARE AT 
REASONABLE PRICES 


CP/M Software by 
Poor Person Software 


Poor Person’s Spooler $49.95 
All the function of a hardware print buffer at a fraction of the 
cost. Keyboard control. Spools and prints simultaneously. 


Poor Person’s Spread Sheet $29.95 
Flexible screen formats and BASIC-like language. Pre- 
programmed applications include Real Estate Evaluation. 


Poor Person’s Spelling Checker $29.95 


Simple and fast! 33,000 word dictionary. Checks any CP/M 


text file. 
aMAZEing Game $29.95 


Arcade action for CP/M! Evade goblins and collect treasure. 


Crossword Game $39.95 


Teach spelling and build vocabulary. Fun and challenging. 


$29.95 


Window System $29.95 


Application control of independent virtual screens. 
All products require 56k CP/M 2.2 and are available on 8” IBM and 5” 
Northstar formats, other 5” formats add $5 handling charge. California 
residents include sales tax. 
Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/M is a registered trademark of Digital Research 


Mailing Label Printer 


Select and print labels in many formats. 
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Now Your 
Computer 
Can See! 


°295,00 


A total imaging system complete 
and ready for plug-and-go opera- 
tion with your personal computer. 


The MicronEye™ offers select- 


able resolution modes of 256 x 128 
and 128 x 64 with operating speeds 
up to 15 FPS. An electronic shutter 
is easily controlled by software or 


MicronEye™ 
“Bullet” 


manual functions, and the included late programs allow you to con- 
tinuously scan, freeze frame, frame store, frame compare, print and pro- 
duce pictures in shades of grey from the moment you begin operation. 

Only the MicronEye™ uses the revolutionary IS32 OpticRAM™ image 
sensor for automatic solid state image digitizing, with capability for grey- 
tone imaging through multiple scans. And with these features, the 
MicronEye™ is perfectly suited for graphics input, robotics, text and 
pattern recognition, security, digitizing, automated process control and 
many other applications. 

The MicronEye™ is available with immediate delivery for these com- 
puters: Apple II, IBM PC, Commodore 64 and the TRS-80CC (trademarks of 


Apple Computer Inc., International Business Ma- 


chines, Commodore Corp., and Tandy Corp. 
TECHNOLOGY, INC. 


respectively). 
Phone for MicronEye™ information 

SYSTEMS GROUP 

1475 Tyrell Lane 


on the Macintosh, TI] PC and RS232 
(trademarks of Apple Computer Inc. and Texas In- 

Boise, Idaho 83706 
(208) 386-3800 


struments respectively.) 
TWX 910-970-5973 





*(Add $10.00 for shipping and handling [Federal 
Express Standard Air]; residents of the following 
states must add sales tax: AK, AZ, CA, CO, CT, FL, 
GA, IA, ID, IL, IN, LA, MA, MD, ME, MI, MN, NC, NE, 
NJ, NY, OH, PA, SC, TN, TX, UT, VA, VT, WA, WI.) 
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THE LEGENDARY WAY TO SOLVE YOUR BACKUP PROBLEMS 


Here's what Microsystems had to say about 
our original product: “QBAX will probably 


areas, and so is an absolute must for hard- or 
RAM-disk owners.’ 


become one of those legendary programs that 
everyone eventually buys. It performs a func- 
tion useful to anyone with a CP/M system, 
does it well and quickly, is understandable to 
the novice computer user.’ 


Announcing a major enhancement, Qbax2, 
specifically designed for hard disk users: 

@ incremental backup by extent lH splits files 
larger than one floppy # smart restore: knows 
exactly which floppies to mount. Can restore 
individual files or wildcards # volume space 
recovery: prevents consuming floppies 
endlessly when the same files are backed up 
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determines which of your disk files has been 
changed since the last time it was run. Then it 
copies these files, and only these files, to 
whatever disk you specify. This is called 
incremental backup, and is the backup 
method of choice on most large timesharing 
systems. It will work on any or all active user 
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number on all backup records. 


Qbax2 is $95. For floppy disk users Qbax1] is 
still available at $40. 


For CP/M 2.2 on 8” SSSD 
& popular 5%” formats 
MC, Visa accepted 

OEM inquiries invited 


Amanuensis, Inc. 

R.D. #1 Box 236 
Grindstone, PA 15442 
(412) 785-2806 





Qbax TM Amanuensis, Inc. Shipping: 
CP/M Registered TM Digital Research $2 U.S. & Canada, $4 overseas. 


NSVSUNSUNSUNSUNSNSN SUNS SN SUNSUNSNSUNSNSNS SSS SiS Si Si Si Si Si Si SiS Si Si Si Si Si Si SiS SiNSNSN@i@li@leleieieielieielelrelen 
Circle no. 5 on reader service card. 
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nevie WS (Listing Continued, text begins on page 74) 


Listing One 


INT 21H 


© 
b 


call MS-DOS 


; load structure from 8086 registers 


MOV [BP] .rax, 
MOV [BP] .rbx, 
MOV [BP] .rcx, 
MOV [BP] .rdx, 
MOV [BP] .rsi, 
MOV PEP} rai, 
MOV [BP] .rds, 
MOV [BP] .res, 
POP DS 

POP BP 

RET pi 


DOSCALL ENDP 
DOSCODE ENDS 


END 


Listing Two 


DEFINITION MODULE Clck; 


EXPORT QUALIFIED 
Time, 
Date, 
Set Time, 
SetDate, 
Get Time, 
Get Date; 


TYPE 
Time = RECORD 
hour: [0..23]; 


minute: [0..59]; 
second: [0..59]; 
hundredth: [0..99]; 


END; 


Date = RECORD 


year: [1980..2099]; 
months {1.51213 


8 dedieel ot Bg ts § oe a 
END; 


PROCEDURE Set Time 
PROCEDURE SetDate 
PROCEDURE Get Time 


PROCEDURE GetDate 
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(VAR t: 
(VAR d: 
(VAR t: 


(VAR d: 


AX 


oI 
DI 
DS 
ES 


; restore calling data segment 
; restore calling frame pointer 
; pop structure pointer during return 


Time) ; 
Date) ; 
Time) ; 


Date); 


End Listing One 


END Clck. 
IMPLEMENTATION MODULE Clck; 


FROM SYSTEM IMPORT 
DOSCALL; 


(RRKRKKKKKKEKKRKKKKK KKK RKEREKKKKKRER ) 


PROCEDURE SetTime (VAR t: Time); 


VAR 
ais $0. 6255]: 
cx, dx: CARDINAL; 


BEGIN 
WITH t DO 
cx := 256*hour + minute; 
dx := 256*second + hundredth; 
DOSGALE.-( 208. C2 a%¢ -21)* 
END; 
END SetTime; 


(RAKRKKKKKKKKEKKRRKEKERERERERERKEKEKKEE ) 


PROCEDURE SetDate (VAR d: Date); 


VAR 
635100525545 
cx, dx: CARDINAL; 


(Continued on page 82) 
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ADVANCE YOURSELF 
AT SUBSTANTIAL SAVINGS 
—-Up to 20% off! — 


APPLE OWNERS: 

Choose from— 
Programming Tips and 
Techniques Kit for the 


Apple Ii/Ile 
by L. L. Campbell 


Takes an advanced 
look at the skills and 
techniques needed to 
solve common pro- 
gramming problems. 
Including handling in- 
put, processing, out- 
put and error entry. 
Offers supporting code to ease program writing 
and problem solving, and tips on using sound 
and hi/lo. resolution graphics. All 38 programs 
from the book are on the accompanying 
diskette. Debugged, error-free and ready to run 
when you are. 

1984/403pp/paper & 1 diskette/D7661-2/$49.95 





Inside the Apple Ile: 
Programming Access 
Tools Kit 

by G. Little 


Get an inside look 
at the inner workings 
of the 6502 micro- 
processor, the DOS 
3.3 and PRO DOS 
operating systems— 
with explanations of 
how they really work, 
ROM, with a eau glossary of schematic 
drawings. This unique book/diskette tutorial 
has 30 programs (pre-keyed and ready to go) 
covering auxiliary memory, discussing and sup- 
plementing keyboard input routines, using dou- 
ble width graphics and more. 

1984/310pp/paper & 1 diskette/D5556-8/$49.95 





BASIC Engineering, 
Science and Business 
Programs for the 

Apple II/lle Kit 
by P. M. Wolfe 
and C. P. Koelling 


From data 
manipulation and 
specific problem solv- 
ing methods to 
forecasting and pro- 
ject scheduling, this 
“tool box” book/ 
diskette combo offers 
38 ready to run pro- 
grams and examples. You'll get fast access to 
linear programming and regression, next event 
simulation, project planning and scheduling, 
forecasting with exponential smoothing, and 
more. 

1985/320pp/ paper & 1 diskette/D2905-0/$42.95 








IBM PC OWNERS: 


Choose from— 


Software Tools for 
Assembly Language 
Safari on the IBM PC: 
First Explorations 

by J. Socha 


Informing without 
overwhelming, _ this 
new book/diskette 
package is a practical 
introduction to the in- 
ner workings of the 
8088 microprocessor; 
machine language pro- 
gramming; and a sneak preview of more ad- 
vanced features. The companion software has 
all the major programs from the book. In- 
cluding DSKPATCH—an all inclusive program 
using the step-wise refinement approach to 
writing. And an Advanced Version of 
DSKPATCH (found only on the diskette) that 
allows you to do even more! 

1984/256pp/paper & 1 diskette/D2948-0/$56.95 





Advanced BASIC and 
Beyond for the IBM PC 
Programming Kit 

L. J. Goldstein 


Here’s an indepth 
book/software 
tutorial to advanced 
BASIC programming 
skills. Covers files, 
graphis, event trap- 
ping, machine langu- 
age, and subroutines. 
Includes a total of 60 prekeyed programs, such 
as a professional input routine, bar chart 
generator with spread sheet, character plotting 
routine, graphic screen dump routine, and 
more. 

1984/368pp/paper & 1 diskette/D3251-8/$49.95 


Advanced BASIC 
and Beyond for the 





8087 Applications and 
Programming Kit for the 
IBM PC and Other PCs 
by R. Startz 


At last A clear, 
complete explanation 
of the number coun- 
ting 8087 micro- 
procesor for program 
writers and _ users. 
Starting comfortable 
and easy, the book/ 
diskette package evolves into more detailed and 
technical language. The companion software 
gives you the source and object code for the 
book’s 30 assembly language programs. Plus 
you'll be able to select programs in your choice 
of formats. And that selection includes BLOAD, 
so you can load and go right into BASIC. 

1983/276pp/paper & I diskette/D4258-2/$54.95 


BRADY COMMUNICATIONS COMPANY INC. 


BRADY 


A Prentice-Hall Publishing Company 
BOWIE, MARYLAND 20715 


Circle no. 21 on reader service card. 


You Decide How Much 
You Save— 

*Buy 1—Get 5% off 

*Buy 2—Get 10% off 


*Buy 3 or more and you save 
a full 20% 


Your Satisfaction Guaranteed 
Or Your Money Back! 


If, within 15 days, you are not 
satisfied with your order, send it 
back for a complete refund. No 
questions asked. 





Use the attached postpaid order card. 
Or the coupon below. Send to: Brady 
Communications Co., Inc.; Dept DB, 
Bowie, MD 20715 


~ YES! 1 want to advance 
substantially! Here’s how much | 
want to save: 


15% 
[110% 


Send me: 


[120% 


(_] Programming Tips and Techniques Kit 
for the Apple Ii/lle D7661-2/$49.95 

L] Inside the Apple Ile: Programming Access Tools 
Kit D5556-8/$49.95 

| BASIC Engineering, Science and Business Pro- 
grams for the Apple II/Ile D2905-0/'$42.95 

L] Software Tools for Assembly Language Safari on 
the IBM PC: First Explorations 
D2948-2/$54.95 

J Advanced BASIC and Beyond for the IBM PC 
Programming Kit D3251-8/$49.95 

(_] 8087 Applications and Programming Kit for the 
IBM PC and Other PCs D4258-2/$56.95 


L] Here’s my check/mo including local 


sales tax 
(| Here’s my 
VISA MasterCard 
Number/Exp. Date 
Signature 

Name 

Address 

City 

State/Zip 

Dept. Y Y0530-DD(7) 


R e Vi CWws (Listing Continued, text begins on page 74) 
Listing Two 


BEGIN 
WITH d DO 
CX := year; 
dx := 256*month + day; 
DOSCALL (2BH, cx, dx, al); 
END; 
END SetDate; 


(RRKKKKAKKAKKAKKKKKKEKKRKERERERERKKEEK ) 


PROCEDURE GetTime (VAR t: Time); 


VAR 
cx, dx: CARDINAL; 


BEGIN 
WITH t DO 
DOSCALL (2CH, cx, dx); 
hour := cx DIV 256; 
minute := cx MOD 256; 
second := dx DIV 256; 
hundredth := dx MOD 256; 
END; 
END GetTime; 


(KAKKKKKKKAKKKKKKRKRKRKKRKKKEKKKKKERERER SE ) 


PROCEDURE GetDate (VAR d: Date); 


VAR 
cx, dx: CARDINAL; 


BEGIN 
WITH d DO 
DOSCALL (2AH, cx, dx); 
year := cx; 
month := dx DIV 256; 
day := dx MOD 256; 
END; 
END Get Date; 


END Clck. End Listing Two 


Listing Three 


INTERFACE; UNIT CLOCK ( 
Time , 
Date, 
SetTime, 
setDate, 
Get Time, 
GetDate) ; 


TYPE 
Time = RECORD 
Meus s -O.6 +235 
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minute: 0..59; 

second: 0..59; 

hundredth: 0..99; 
END ; 


Date = RECORD 
year: 1980..2099; 
month:.1..12s 
Geve Tes Sls 

END; 


PROCEDURE SetTime (VAR t: Time); 
PROCEDURE SetDate (VAR d: Date); 
PROCEDURE GetTime (VAR t: Time); 
PROCEDURE GetDate (VAR d: Date); 


END; {Clock} 
IMPLEMENTATION OF CLOCK; 


USES SYSTEM; 


{ RRAKKKKKKKKKKKE KEKE REKKRERE RK EKKRKK | 


PROCEDURE SetTime; 


VAR 
r: Registers; 


BEGIN 
WITH t DO WITH r DO BEGIN 
ax := #2D00; 
cx := BYWORD (hour, minute); 
dx := BYWORD (second, hundredth); 
DOSCALL (r); 
END ; 
END; {Set Time} 


{RAAKKKKKKKKKKKKKRKKKEKKRKKEKRKEREK KKK } 


PROCEDURE SetDate; 


VAR 
r: Registers; 


BEGIN 
WITH d DO WITH r DO BEGIN 
ax := #2B00; 
cX := year; 
dx := BYWORD (month, day); 
DOSCALL. Cr); 
END ; 
END; {SetDate} 


(Continued on page 84) 
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Don’t SVA/THESIZE 


DIGITIZE! 


SoundWare™ Series of Software 


Sound Application Development Tools... 


Digital Pathways’ SoundTools™ software used with the Communicard™ allows application software to use 
digitized voice messages, greetings, errors and much, much more. Touch Tone™ decoding lets applica- 
tions software use the Touch Tone phone or pad as an input device for the remote or stationary user. 
Touch Tone dialing allows your PC application software to address such areas as telemarketing and 
auto dial applications. 


Think of the Possibilities! 


e Sales order entry ¢ Computer aided instruction © Voice mail 

e Order acknowledgement _—_® Telemarketing e Inventory Adjustment 

e Message broadcasting e Dictation e Phone-in surveys 

e Telephone management ¢ Order/quantity inquiry e Dial-in newsletter 

e Voice distribution e lext to speech e Jext & speech dictation 
Languages: Interpreted and compiled IBM™ BASICA and MS™ BASIC, MS PASCAL, DeSmet C and 
Assembler. 


Communicard—This ¥2 size card provides complete telephone interface, microphone and auxiliary out- 
put and Touchlone decoding. 


VoiceMate"—Intelligent telephone management software for your personal computer. Includes phone 
directory, auto dialing, dictation, voice file transmission, audit trail, security, voice mail box and 
remote access. 


List price $449.00. Introductory price $360.00 until 1/31/85. 
Includes Communicard, SoundTools and VoiceMate software, telephone cord 
and users manual. Ask about 21 day trial offer when placing your order. 


Requirements: PC/MS-DOS 2.0 or 2.1, IBM PC/XT or compatible, 192K memory, DMA channel 1. 


You too, can put your software on a SOUND FOOTING... 





DIGITAL PATHWAYS, INC. \ 
1060 EAST MEADOW CIRCLE, PALO ALTO, CA 94303, 415-493-5544 


VoiceMate, SoundTools, Communicard and SoundWare are registered trademarks of Digital Pathways, Inc. 
IBM is a registered trademark of International Business Machines Corp. 
MS is a registered trademark of Microsoft Corporation. 
TouchTone is a trademark of AT&T 





Circle no. 52 on reader service card. 


R e Vi ews (Listing Continued, text begins on page 74) 
Listing Three 


{RRAAAKKAKKKKKERKRKKKKKKKKRKRERKKE KK } 


PROCEDURE Get Time; 


VAR 
r: Registers; 


BEGIN 
WITH t DO WITH r DO BEGIN 
ax := #2C00; 
DOSCALL (r); 
hour := HIBYTE (cx); 
minute := LOBYTE (cx); 
second := HIBYTE (dx); 
hundredth := LOBYTE (dx); 
END; 
END; {Get Time} 


{BRKAKKKAKKKKAKERAKAKEKREKEKEREKKEKE KK } 


PROCEDURE Get Date; 


VAR 
r: Registers; 


BEGIN 
WITH d DO WITH r DO BEGIN 
ax := #2400; 
DOSCALL (r); 
year := cx; 
month := HIBYTE (dx); 
day := LOBYTE (dx); 
END; 
END; {GetDate} 


END. {Clock} End Listing Three 


Listing Four 


DEFINITION MODULE StopWatch; 
EXPORT QUALIFIED 

Start, 

Stop; 


PROCEDURE Start; 
PROCEDURE Stop; 


END StopWatch,. 
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IMPLEMENTATION MODULE StopWatch; 


FROM InOut IMPORT 
WriteString, 
WriteCard, 
WriteLn; 


FROM Clck IMPORT 
Time, 
Get Time; 


VAR 
Cl E23 «Times 


(RAKRKKKKKKKAKKKKEKKKKKEKKKKKKEKKE ) 


PROCEDURE Start; 


BEGIN 
GetTime (tl); 
END Start; 


(RRAKKKKKAKKKKKKEKEKEREKEKKRERE ) 


PROCEDURE Stop; 


(RRAKKRAKKRAKKKEKKK KEKE KKK AKER ) 
PROCEDURE DisplayTime (t: Time); 


BEGIN 
WITH t DO 
WriteCard(hour, 8); 
WriteCard(minute, 8); 
WriteCard(second, 8); 
WriteCard(hundredth, 8); 
WriteLn; 
END; 
END DisplayTime; 


(RARKKKKKKKKKKKKKKRKKKKKEKKKKEE ) 


BEGIN 
GetTime (t2); 
WriteString(’start: ’); DisplayTime(tl); 
WriteString(’stop: ‘’); DisplayTime(t2); 
END Stop; 


END StopWatch. 


End Listing Four 


(Listing five begins on page 86) 
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Change your diskette to fit the IBM PC 





THE FILE CONNECTION 


8” DISKETTE SYSTEM FOR THE IBM PC 


Our “FILE CONNECTION” programs provide 8” diskette file exchange 
between the IBM PC and most Micro-Mini-Main Frame computer systems. 

Our “WORD CONNECTION” programs provide 8” diskette text document 
exchange between the IBM PC and many word processing systems. 

Our “DISPLAYWRITER CONNECTION” programs transform documents 
from Textpack, Wordstar, Multimate, etc. to the DisplayWrite 2 format. 

In addition to our hardware and program products, we also provide a 
conversion service for customer supplied diskettes. Please contact us for 
information about the hundreds of 5%’ and 8” diskette formats and 
systems which we currently support. 


FLAGSTAFF ENGINEERING / P.O. Box 1970 / Flagstaff, AZ 86002 
Telephone 602-774-5188 / Telex 705609 FLAG-ENG-UD 


Circle no. 25 on reader service card. 





Re Vi eC@Wws (Listing Continued, text begins on page 74) 
Listing Five 


INTERFACE; UNIT StopWatch ( 
Start, 
Stop); 


PROCEDURE Start; 
PROCEDURE Stop; 


END; {StopWatch} 
IMPLEMENTATION OF StopWatch; 
USES Clock; 


VAR 
CL C2e ramet 


{RAKAKKKKKKKKKKKKKKKKKKKKEKKEKKKS } 


PROCEDURE Start; 


BEGIN 
GetTime (tl); 
END; {Start} 


{RRKKKKKKKKKKKKRERERERERERKERE 4 } 


PROCEDURE Stop; 


{RAKKKKKKEKKKKKKRKKERKKEKAKEKKEK 4 } 


PROCEDURE DisplayTime (t: time); 


BEGIN 
WITH t DO BEGIN 
WriteLn(hour, minute, second, hundredth); 
END; 
END; {DisplayTime} 


{EKKKKKKKKKKKKKRKREKKKERKKRKKERKE } 


BEGIN 
GetTime (t2); 
Write(’start: ’°); DisplayTime(tl); 
Write(’stop: °’); DisplayTime(t2); 
END; {Stop} 


END. {StopWatch} 


End Listing Five 


86 


Listing Six 


MODULE Benchmark]l; 
(* Sieve of Eratosthenes *) 


FROM StopWatch IMPORT 
Start. 
Stop; 


CONST 
iterations = 10; 


VAR 
i: INTEGER; 


(KREKKAKAKKKKRRKKK KK KKKK ERE RR REKRERKEREREREEKEE ) 


PROCEDURE Sieve; 


CONST 
size = 8190; 

VAR 
i, prime, k, count: INTEGER; 
flags: ARRAY[0O..size] OF BOOLEAN; 


BEGIN 
count := Q; 
FOR i := 0 TO size DO 
flags[i] := TRUE; 
END; 
FOR i := 0 TO size DO 
IF flags[{i] THEN 
prime <~=-1°+ 2 +. 3; 
k := i + prime; 
WHILE k <= size DO 
flags[k] := FALSE; 
INC (k, prime); 
END; 
INC (count); 
END; 
END; 
END Sieve; 


(RRKKKKKKKKKKKKKKKKKKKKKEKEREREREKREKKKKKKKKKE ) 


BEGIN 
Start; 
FOR i := 

Sieve; 
END; 
Stop; 

END Benchmarkl. 


1 TO iterations DO 


End Listing Six 
(Listing seven begins on page 88) 
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A Proffessional Quality Z80/8080/8085 Disassembler 


WHEN YOU NEED SOURCE FOR YOUR CODE 
you need REVAS 3 


REVAS interactively helps you: 
Analyse your software for modification 


disassemble files as large as 64K 

Assign Real labels in the disassembly 
Insert COMMENTS in the disassembly 
Generate a Cross Reference (XREF) listing 


A 60 page manual shows how the powerful REVAS 
command set gives you instant control over I/O to files, 
printer, or console; how to do a disassembly; and even 
how the disassembler works! You get on line help, your 
choice of assembler mnemonics, control of data 
interpretation, and calculation in any number base! 


REVAS runs in Z80 CPM computers; is available on 
8" SSSD (standard), RAINBOW, and other (ask) formats 


Price: $90.00 (plus applicable tax), Manual only: $15.00 


REVASCO 
6032 Chariton Ave., Los Angeles, CA 90056 
Voice: (213)649-3575 Modem: (213)670-9465 





Circle no. 80 on reader service card. 


Conix 


UNIX™ Technology for CP/M™ 


ConlX can provide any 48K+ CP/M-80 compatible system 
with many advanced capabilities of UNIX. You'll be amazed 
at what your 8-bit micro can do now! ConIX features include: 






I/O Redirection and Pipes (uses memory or disk), multiple 
commands per line, full upper/lower case and argument 
processing, Auto Screen Paging. Programmable Function Keys, 
improved User Area Directory manipulation, Command and 
Extension (Overlay) Path Searching, ‘‘Virtual’’ disk system, 
8Mb Print Spooler, extensive preprocessed ‘‘Shell’’ command 
programming language, 300+ variables, over 100 built-in 
commands, Math Package, 22 new BDOS SysCalls. Archiver 
(compacts files for disk space savings of over 50%), On-Line 
Manual System. and much more! Uses as little as 1/2K RAM! 
Runs with CP/M for true data and software compatibility. 
Installs quickly and easily without any system modifications. 











The Con!IX Operating System 
List Price: $165 


Price includes Instructional Manual, 8° SSSD disk, and free support. 
5¥%'° format conversions available. To order, contact your local dealer, 
or buy direct and add bleep $4.50 UPS. $10 Canada. $25 overseas, 
COD $2 extra (USA only). NY State residents add sales tax. 








Computer Helper Industries Inc. 
P.O. Box 680 Parkchester Station, NY 10462 
Tel. (212) 652-1786 


Dealer inquiries invited! 
UNIX: AT&T Bell Labs, CP/M: Digital Research, ConIX: Computer Helper Ind. 






Circle no. 22 on reader service card. 








The Little Board™...$349* 


The world’s simplest and least expensive CP/M computer 






TERM 22 





CP/M 2.2 
INCLUDED *UNDER $200 IN 


OEM QUANTITIES 


e 4 MHz Z80A CPU, 64K RAM, Z80A CTC, 2732 Boot ROM 

e Mini/Micro Floppy controller (1-4 Drives, Single/Double Density, 1-2 sided, 40/80 track) 
e Only 5.75 x 7.75 inches, mounts directly to a 5 1/4” floppy drive 

@ 2 RS232C Serial Ports (75-9600 baud & 75-38,400 baud), 1 Centronics Printer Port 

e Power Requirement: +5VDC at .75A; +12VDC at .05A/On-board -12V converter 

e CP/M2.2BDOS e ZCPR3CCP e Enhanced AMPRO BIOS 


e AMPRO Utilities included: 
e read/write to more than 2 dozen other formats (Kaypro, Televideo, IBM CP/M86....) 
e format disks for more than a dozen other computers 
e menu-based system customization 
e BIOS and Utilities Source Code Available 
e SCSI/PLUS Adapter: 
e Mounts directly to Little Board e Slave I/O board control e Full ANSC X3T9.2 
e 16 bidirectional I/O lines ¢ $99/Quantity 1 


ANIA 


COMPUTERS. INCORPORATED 
67 East Evelyn Ave. e Mountain View, CA94041 « (415) 962-0230 e TELEX 4940302 


Distridutor/Dealer/Reps 
Inquiries Invited 


Z80A is a registered trademark of Zilog, Inc. 
CP/M is a registered trademark of Digital Research. 
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ASSEMBLE 3-6 TIMES 
FASTER ON THE IBM PC 


Introducing FAST ASSEM-86™, the first Editor/Assembler for the IBM PC and PC 
compatibles. FAST ASSEM-86™ (FASM) is significantly faster and easier to use 
than the IBM Macro-Assembler (MASM). Whether you are new to assembly 
language and want to quickly write a small assembly language routine, or are an 
experienced MASM user tired of waiting months to assemble large files, FAST 
ASSEM-86 will bring the excitement back to assembly language. 










FAST ASSEM-86 IS MUCH FASTER: 


@ How fast is FASM™? The graph below shows relative assembly times for a 48K 
source file. For large files like this we blow MASM’s doors off at 3 times their 
speed. For smaller 8K files we positively vaporize them at 6 times their speed. 


FASM™ — (110 sec.) memes 
MASM v1.0 (340 Sec. ) [IIIa 


e FAST ASSEM-86 is faster for the following reasons: (1) Written entirely in 
assembly language (unlike MASM). (2) Editor, assembler and source file always 
in memory so you can go instantly from editing to assembling and back. (3) 
Eliminates the time needed to LINK programs. Executable .COM files can b« 
created directly. (Also creates .OBJ files completely compatible with the IBX. linker). 


FAST ASSEM-&86 iS EASIER TO USE: 
FASM includes many other features to make your programming simpler. 


@ Listings are sent directly to screen or printer. Assemblies can be single stepped 
and examined without having to leave the editor. 


@ Access the built in cross reference utility from the editor. 
@ Full support of 186 and 286 (real mode) instructions. 


@ Both Microsoft and 8087 floating point formats are supported. 8087 and 287 
instructions supported directly without macros for faster assembly. 


@ Calculator mode: Do math in any radix even using symbols from the symbol table. 
@ Direct to memory assembly feature lets you test execute your code from editor. 
® Coming soon: A coordinated symbolic debugger. 


COMPATIBILITY: FASM is designed for source code compatibility with MASM and 
supports most of its important features. 


Introductory Price $199 
Box D1, 2931 Northrop Avenue 


Speedwar e bag Sacramento, CA 95825 


IBM, Microsoft trademarks of IBM Corp., Microsoft Corp. respectively. 

























Gealer inquires weicome 


916-966-6247 
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R eviews (Listing Continued, text begins on page 74) 
Listing Seven 


PROGRAM Benchmarkl (INPUT, OUTPUT); 
{ Sieve of Eratosthenes } 


USES StopWatch; 


CONST 
iterations = 10; { number of times benchmark executed } 


VAR 
i: INTEGER; 


{RHKKKKKEKKEKKKKEREK ARERR KE REK EKER ER ER ERE RER EKER RERERERERERE RE | 


PROCEDURE Sieve; 


CONST 
size = 8190; 


VAR 
i, prime, k, count: INTEGER; 
flags: ARRAY [0..size] OF BOOLEAN; 


BEGIN 
count := 0; 
FOR i := 0 TO size DO BEGIN 
flags[i] := TRUE; 
END; 

FOR i := 0 TO size DO BEGIN 
IF flags[i] THEN BEGIN 
prime «<= i1°+°1.4+°3; 

kts te+- prime; 

WHILE k <= size DO BEGIN 
flags[k] := FALSE; 
k = Kk +} “prine; 

END; 

count := count + 1; 

END ; 
END; 
END; {Sieve} 


{RRR RKARARKRKK RAK KKK ERR EKER KER ER KERR RRR ERR RERER KERR ERK EE } 


BEGIN 
Start; 
FOR i := 1 TO iterations DO BEGIN 
Sieve; 
END; 
Stop; 
END. {Benchmark] } 


Listing Eight 


MODULE Benchmark2; 
(* Fibonacci series *) 


FROM StopWatch IMPORT 
Start, 
Stop; 
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End Listing Seven 


(Listing Eight begins on page 90) 
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FORTH 


including 


SOURCE CODE 


Developing your own system? Or, just Curious 
about how things work? Either way, SOURCE CODE 
is Q must! 

KFORTH was developed for use in microproces- 
sor based controllers used by the U.S. Government. 
It includes CASE statements, a built-in assembler, 
and CPM file handling. Best of all, you can change it 
fo fit your needs. 

SUPER KFORTH was developed for increased 
speed. If uses DIRECT THREADED CODE and is up to 
10x faster. Both are written in assembler and can be 
assembled using ASM.COM. Both generate reen- 
trant and ROMABLE code. 

(For use with Z80, 8080, 8085 CPM systems) 


FILL OUT COUPON TODAY AND MAIL TO: DJ 
KIMRICH COMPUTER DESIGNS, INC. 
10404 Patterson Avenue, Richmond, VA 23233 (804) 741-5930 
LJ YES! | want SOURCE CODE! Enclosed is my check for: 


CL) SUPER KFORTH 
(In VAadd $1.60 sales tax (4%)) (In VAadd $3.20 sales tax (4%)) 


My disk format is: (Call for availability of other formats) 
OC) 8 inch SSSD CL) Osborne SD [1] Kaypro 
O) 5-1/4 inch SSSD L}) Osborne DD 

For VISA or MasterCard orders phone (804)741-5930. 


Name 








Address 








City 





Thanks to YOU... We're Growing . 
with YOU and your Computer . . 


LEO ELECTRONICS, INC. 
~ P.O. Box 11307 

Torrance, CA 90510-1307 

Tel: 219/212- 6133 800/421-9565 







We Offer... PRICE... QUALITY’. 


PERSONAL SERVICE 
64K UPGRADE 


9 Bank (IBMPC) $26.10 (150ns) 
$24.75 (200ns) 
4164 (150ns) $2.90 ea. 
(200ns) $2.75 ea. 


8 Bank (other PC) $23.20 (150ns) 
$22.00 (200ns) 


4164 (150ns) $2.90 ea. 
(200ns) $2.75 ea. 
256K “MOTHER-SAVER” UPGRADE 
256K — (150ns) $22.00 ea. 
6116P-3 — $4.00 2732 — $3.80 
2716 — $2.95 2764 — $5.50 
TMS-2716 — $4.95 27128 — $16.50 


We accept checks, Visa, Mastercard or Purchase Orders from 
qualified firms and institutions. U.S. funds only. Call for 
C.0.D. California residents add 62% tax. Shipping is UPS. 
Nolo A000 (o) axe [cole] ale Mr- Lalo Mn toK 00M (0) ae-\1 ame-N | Muat:l(o)m@iaat-lalbii-(em 
turers. All parts 100% guaranteed. Pricing subject to orange 
without notice. 
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S-100 EPROM PROGRAMMER 


EPROM - 32 


e Field-proven board meets IEEE-696 standard. 
e Programs 1K through 32K (byte) EPROMs. 
e Textool zero-insertion-force programming socket. 
e EPROM is programmed through |/0 ports and can be verified 
through 1/0 ports or located in memory space for verification. 
e Programming voltage generated on-board. 
e Personality Modules adapt board to EPROMs: 
PM-1—2508, 2758 PM-3—2732, 2732A PM-6—68764 
2516, 2716 PM-4—2564 PM-8—27128 
PM-2—2532 PM-5—2764 PM-9—27256 
@ She pan Scat CP/M-compatible control software includes 
ast programming algorithm. 
e One year warranty. $269.95* 
(A & T) 
MicroDynamics 


Corporation 


Suite 245 « 1355 Lynnfield Road « Memphis, TN 38119 
(901)-682-4054 
* Price includes EPROM-32, documentation and two Personality MS OSSDELBYs, Additional 


Modules—$7.95. Control software on 8" SSSD diskette—$29.95, UPS ground—$2.00, UPS 
air—$4.00, COD—$1.65, foreign add $15.00, VISA & MASTERCARD welcome. 


See Dec. 1983 Microsystems for a review of the EPROM-32. 
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Scroll & Recall” 


Screen and Keyboard Enhancement 
for the IBM - PC, XT and Compatibles 


Allows you to conveniently scroll back 
through data that has gone off the top of 
your aeiyey screen. 













Allows you to easily recall and edit your 
previously entered DOS commands and 
data lines. 


Very easy to use, fully documented. Com- 
patible with all versions of DOS, mono- 
chrome & graphic displays. 


$69 - Visa, M/C, Check, COD, POs 
Phone orders accepted 


Make Your Work Easier! 













To Order or to Receive Additional 
Information, Write or Call: 
Opt-Tech Data Processing 
P.0. Box 2167 © Humble, Texas 77347 
(713) 454-7428 
Dealer Inquiries Welcome 
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Users’ 
Group 


Over 40 volumes of public 
domain software including: 


© compilers 
editors 
text formatters 
communications 
packages 
many UNIX-like tools 


Write or call for more details 


The C Users’ Group 
415 E. Euclid © Box 97 
McPherson, KS 67460 

(316) 241-1065 
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C-terp 
A complete C interpreter 





Built-in Screen Editor 
Incredibly fast semi-compilation 
Editor-directed errors 

Full K & R language and library 


Supports object libraries written with 
C86, Lattice C, or assembler 


Multi-module support 
(including global searching) 


High-level symbolic debugging 


Price: $300.00 (Demo $45.00) MC, VISA 
Runs on: IBM PC (or compatible) DOS 2.x 








Gimpel Software 
3207 Hogarth Lane @ Collegeville, Pa. 
(215) 584-4261 


Trademarks: C86 (Computer Innovations), Lattice 
(Lattice, Inc.), IBM (IBM Corp.) 
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R e Vi CWS (Listing Continued, text begins on page 74) 
Listing Eight 


CONST 
iterations = 10; (* number of times benchmark executed *) 
length = 24; (* length of series *) 


VAR 
i: INTEGER; 
useless: CARDINAL; 


(RRKKKK KKK AKKKKEKKRERKRKEREKRR RR ERK EERE EKER ERE ) 


PROCEDURE Fibonacci (n: CARDINAL): CARDINAL; 


BEGIN 
IF n >.2 ‘THEN 
RETURN Fibonacci(n-1) + Fibonacci(n-2); 
ELSE 
RETURN 1; 
END; 
END Fibonacci; 


(KRKAKKKAKK RE ARK RK RK RKK EER EK KR KK KK ERE RK ERE RE ) 


BEGIN 
Starts 
FOR i := 1 TO iterations DO 
useless := Fibonacci (length); 
END; 
Stop; 


END Benchmark2. End Listing Eight 


Listing Nine 


PROGRAM Benchmark2 (INPUT, OUTPUT) ; 
{ Fibonacci Series } 


USES StopWatch; 


CONST 
iterations = 10; { number of times benchmark executed } 
length = 24; { length of series computed } 


VAR 
i: INTEGER; 


{kkk KKKKK KKEKKKKEKRKKKEEKEKEKRRKKEKEE KKKKKKEKKKKKRKEKEKKEKKEKEKE | 


FUNCTION Fibonacci (n: WORD): WORD; 


BEGIN 
IF n > 2 THEN BEGIN 
Fibonacci := Fibonacci(n-1) + Fibonacci(n-2); 
END ELSE BEGIN 
Fibonacci := 1; 
END; 


END; {Fibonacci} (Continued on page 92) 
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Fortran Scientific Subroutine Package 
Contains Approx. 100 Fortran Subroutines Covering: 


7. Time Series 

8. Nonparametric Statistics 
9. Distribution Functions 
10. Linear Analysis 

11. Polynomial Solutions 
12. Data Screening 


1. Matrix Storage and Operations 
2. Correlation and Regression 

3. Design Analysis 

4. Discriminant Analysis 

5. Factor Analysis 

6. Eigen Analysis 


Sources Included. Microsoft 3.2 compatible. 
$295.00 
FORLIB-PLUS™ 


Contains three assembly coded LIBRARIES plus support, FORTRAN 
coded subroutines and DEMO programs. 

The three LIBRARIES contain support for GRAPHICS, 
COMMUNICATION, and FILE HANDLING/DISK SUPPORT. An 
additional feature within the graphics library is the capability of one 
fortran program calling another and passing data to it. Within the 
communication library, there are routines which will permit interrupt 
driven, buffered data to be received. With this capability, 9600 BAUD 
communication is possible. The file handling library contains all the 
required software to be DOS 3.0 PATHNAME compatible. 


$69.95 
Strings & Things™ 
Support for CHARACTER MANIPULATION (string support), SHELL 
BATCH, MUSIC, and GENERAL REGISTER MANIPULATION. 


P- etd des Blast is staan (714) 894-6808 


California residents, please add 6% sales tax. 
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THE (@? JOURNAL 


The C Journal will help YOU use C on YOUR machine 
—IBM PC™, CP/M™, Macintosh™, or UNIX™-based — 
micro, mini, or mainframe. 


it's the ONE publication for programmers, software 

managers, and other computer professionals who 

need to keep aware of developments in the indus- 

try's fastest-growing language. 

@ regular columns for novice through advanced C 
programmers 

@ software product and book reviews 


@ tips on working with major compilers and 
operating systems 

@ news from the ANSI standards committee and the 
industry 


For FREE sample issue and discount subscription 
information, write, call, or circle our reader service 
number. The C Journal is a quarterly publication, 
and costs $28/year (add $9 for overseas airmail). 


Subscriptions /Advertising: Editorial: 
Christina Gardner Rex Jaesche 
(201) 989-0570 (703) 860-0091 


aloha allel [alo l-)el-lalel—1aiamel0le)i(er-halelamaae)aa 


InfoPro Systems 


Cun Olom prelehes mane) 


eA OFm alo) erst ao 
Denville, NU 07834 
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Offering low cost consecutive issues. 


Dr. Dobb's Journal is pleased to announce 
DDJ Classifieds 


RATES: DISPLAY ADVERTISERS: Price per column inch $100. Ad must run in 3 






advertising reaching 
thousands of computer 
programmers and 
proffessionals each month. 
Departments to choose 
from include: 

Software 

Hardware 

Accessories /Supplies 
Career Opportunities 


LINE ADVERTISERS: Price per line $12 (35 characters per line including 
spaces). Minimum of S lines, 3 consecutive issues. Add $3 per line for 
boldface type. Add $25 if a background screen is desired. 

DISCOUNTS: Frequency discounts for 6 consecutive ads (less 7%) and for 12 
consecutive ads (less 15%). 

MECHANICAL REQUIREMENTS: Camera ready art or typewritten copy only 
(phone orders excepted). Display: Specify desired size, include $20 if 
reduction is required. Line: Specify characters in boldface, caps. Allow 6 
weeks for publication. 




























































Services Run this ad in issues 
User Groups Size: Col x inches or 1 col x lines 
Special categories are Payment by: check m/o Visa M/C AmEx 
available. Card # Exp Date 











a a ee ee ee eae eae Se 
oe ee ee eee eS SNE ei i 


a ee OE TO Re Fee 
Address 


City 
Phone Current Subscriber 


Mail to or phone Alex Williams, Business Computer Marketplace, 
2464 Embarcadero Way, Palo Alto, CA 94303 (415) 424-0600 











St 





Zip 
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C Programmers: 
Program. 
three times faster 
with Instant-C™ 


Instant-C™ is an optimizing interpreter 
for the C language that can make pro- 
gramming in C three or more times faster 
than using old-fashioned compilers and 
loaders. The interpreter environment 
makes C as easy to use as Basic. Yet 
Instant-C™ is 20 to 50 times faster than 
interpreted Basic. This new interactive 
development environment gives you: 


Instant Editing. The full-screen editor is 
built into Instant-C™ for immediate use. 
You don’t wait for a separate editor pro- 
gram to start up. 


Instant Error Correction. You can 
check syntax in the editor. Each error 
message is displayed on the screen with 
the cursor set to the trouble spot, ready 
for your correction. Errors are reported 
clearly, by the editor, and only one at a 
time. 


Instant Execution. Instant-C™ uses 
no assembler or loader. You can execute 
your program as soon as you finish 
editing. 

Instant Testing. You can immediately 
execute any C statement or function, set 
variables, or evaluate expressions. Your 
results are displayed automatically. 


Instant Symbolic Debugging. Watch 
execution by single statement stepping. 
Debugging features are built-in; you don't 
need to recompile or reload using special 
options. 

Instant Loading. Directly generates .EXE 
or .CMD files at your request to create 
stand-alone versions of your programs. 


Instant Floating Point. Uses 8087* co- 
processor if present. 


Instant Compatibility. Follows K & R 
standards. Comprehensive standard 
library provided, with source code. 


Instant Satisfaction. Get more done, 
faster, with better results. Instant-C™ 
is available now, and works under 
PC-DOS, MS-DOS*, and CP/M-86*. 


Find out how Instant-C™ is changing 
the way that - programming is done. 
Instant-C™ is $500. Call or write for 
more information. 


Rational 


Systerns, Inc. 


(617) 653-6194 
P.O. Box 480 
Natick, Mass. 01760 


Trademarks: MS-DOS (Microsoft Corp.) 8087 (Intell Corp.), CP/M-86 
(Digital Research, Inc.), Instant-C (Rational Systems, Inc.) 
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R @C@views (Listing Continued, text begins on page 74) 
Listing Nine 


{RRRRKKKKRKKKKRE KER REREREKRERREERE KKK KAKKKKAREKEKRKAKKKKRKKK KK } 


BEGIN 
Start; 
FOR i := 1 TO iterations DO BEGIN 
EVAL (Fibonacci (length)); 
END; 
Stop; 
END. {Benchmark2} 


Listing Ten 


MODULE Benchmark3; 
(* text filter *) 


FROM StopWatch IMPORT 
Start, 
Stop; 


FROM FileSystem IMPORT 

Response, 

File, 

Lookup, 

Reset, 

Close, 

ReadByte, 

WriteByte; 


FROM InOut IMPORT 
WriteString, 
WriteLn; 


CONST 
iterations = 10; 
FileSize = 1000; 


VAR 
i: INTEGER; 


(KRKKKKKKKKKKKKKKK KK KKK EKER RE KEK KRERERK KE ) 


PROCEDURE Init; 


VAR 
i: INTEGER; 
Fla Fite; 


BEGIN 
Lookup (fl, ’DK:filel.doc’, TRUE); 
FOR i := 1 TO FileSize DO 
WriteByte (fl, ’a’); 
END; 
Close (fl); 
END Init; 


End Listing Nine 
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(RAKAKKKKARKKKKKKREKKRKKKRERKERERKRERERERER ) 


PROCEDURE Filter; 


VAR 
thy £23. Files 
c: CHAR; 


BEGIN 
Lookup (fl, ’DK:filel.doc’, FALSE); 
IF NOT (fl.res = done) THEN 
WriteString (’filel.doc not found’); 
WriteLn; 
END; 
Lookup (f2, “DK:file2.doc’, TRUE); 
LOOP 


ReadByte (fl, c); 
IF fl.eof THEN 
EXIT; 
END; 
(* process c *) 
WriteByte (f2, c); 
END; 
Close (fl); 
Close (f2); 
END Filter; 


(RRRKKKKKAKKK RK RRR AREER KKK KAR KARE KEKE ) 


BEGIN 
Init; 
Start; 
FOR i := 1 TO iterations DO 
Filter; 
END; 
Stop; 
END Benchmark3,. 


End Listing Ten 


Listing Eleven 


PROGRAM Benchmark3 (INPUT, OUTPUT) ; 
{ text filter } 


USES StopWatch; 
CONST 
iterations = 10; 
FileSize = 1000; 


VAR 
i: INTEGER; 


{RARAAKKKKKKK KEKE KKEKKAKKKKKKKKEKKKK } 


PROCEDURE Init; 
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VAR 
i: INTEGER; 
oie tile or “BYie: 


BEGIN 
ASSIGN (fl, ’filel.doc’); 
REWRITE (f1); 
FOR i := 1 TO FileSize DO BEGIN 
WRITE (fl, ORD(’a’)); 
END; 
CLOSE (f1); 
END; {Init} 


{HRAKKAKKAKKKRAKKKKKKKKEKRKRREREKRKKKKKK | 


PROCEDURE Filter; 


VAR 
El ¢. 422 .File-oF . BYTE: 
c: BYTE; 


BEGIN 
ASSIGN (fl, ’filel.doc 
ASSIGN (f2, ‘’file2.doc 
RESET (f1); 
REWRITE (£2); 
WHILE NOT EOF (f1) DO BEGIN 
READ (fl, c); 
{ process c } 
WRITE (£2, c); 
END; 
CLOSE (f1); 
CLOSE (f2); 
END; {Filter} 


); 
’); 


{RRR KAKKAKKAKEAKAKKAKKKKKKRKKKKERKREE } 


BEGIN 
Init: 
Start; 
FOR i := 1 TO iterations DO BEGIN 
Filter; 
END; 
Stop; 
END. {Benchmark3} 


End Listings 
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INTRODUCING 
Interface Technologies’ Modula-2 
Software Development System 


The computer press is hailing Modula-2 as “the next 
standard in programming languages.” Modula-2 
combines the strengths of Pascal with the features 
that made C so popular, like independent 
compilation and direct hardware control. . 

But until today, no company offered a | 
Modula-2 system that made the development 


of software fast, easy and efficient. Now, | —___ 
EDIT | 
WCOMPILE| 


It not only has a faster compiler, it also 
saves time by compiling while you edit. 


though, there’s a new tool at your disposal. 


The fast, powerful tool 
for programmers 


The breakthrough is here: Interface Technologies’ 
new Modula-2 Software Development System for 
the IBM® PC, XT, AT and compatible 
computers to give programmers the same 
quantum leap in productivity spreadsheets 
and word processors gave to end-users. It 
can reduce monotonous wait time, will 
dramatically increase speed, help stop 
thoughtless mistakes, and free you to become more 
creative in virtually all of your programming efforts. 


How to speed input and 
eliminate 30% of errors 


Thirty percent of programming mistakes are syntax 
errors and simple typos in the program structure. Our 
“syntax-directed” Modula-2 editor does away with 
these time-consuming headaches once and for all. 

’ It speeds input by 
cutting manual typing 
as much as 90%, letting 

» you enter statements 
: pwith a single keystroke. 
ae For example, if you type 

a capital “I” to begin a 

line, the editor completes 

the logical “IF THEN” 

statement automatically, so 

ey you can concentrate on what you 

Enter complete statements Want to program, rather than con- 
with one keystroke. centrate on what you're typing. 

The editor locks out errors, finishing statements and 
procedures in perfect accord with the standardized 
rules of Modula-2. It also indents and formats your 
text automatically, making programs easy to read and 
maintain, an important feature on big projects. 















And if you leave an undefined variable or data type, 
the editor detects the mistake and gives you the option 
of on-line “help” to correct it. No other programming 
text editor offers you so much innovation at any price. 


How to turn “wait time” 
into “work time” 


— “| The vast majority of 
i | programming time is 
{spent waiting, and the 


~~ RUN __|_1| biggest slowdown is most 


often with compilers. 


Our compiler turns 
wait time to work time 
with a new innovation 
that lets you compile 
in the “background.” 
With background 
compilation, your program is automatically compiled 
into object code line by line as you work, every minute 
you spend writing or editing a Modula-2 program! 
When you’re finished editing, all that’s left for the 
compiler is a quick mopping up job that generates 
optimized native code in a single pass. 





How quick is “quick’’? 


Thanks to background compilation and the fact that 
the compiler itself is so fast, Interface Technologies’ 
compiler turns 100 lines of typical Modula-2 text 
into optimized machine code in under five seconds. 

Plus the Interface compiler produces compact code 
with execution speed superior to that produced by any 
other Modula-2 compiler on the market. 


How to do two things at once 


Along with the background compiler and syntax- 
directed editor, which can save you hours every day and 
make you more productive, Interface Technologies’ 
Software Development System gives your monitor 


windows so you can refer to one file while you edit 


another simultaneously, saving you even 
more time. 

Concurrent editing of two 
or more files is especially use- | 
ful when doing programming § 
work that’s intended for § 
separate compilation, and § 
Interface Technologies has 
the only Modula-2 system _. 
on the market that provides 
you with this helpful benefit 
for developing software. 


Work with multiple files 
faster, easier in windows. 


How preprogrammed modules 
speed development 


One of the advantages of Modula-2 is that it lets you 
build large, reliable programs quickly, by linking 
together many smaller “building-block” modules. 

The development system’s toolkit of precompiled 
program modules includes the standard Modula-2 
library, and adds exclusive link-and-run modules for 
direct calls to the operating system, sound, and color 


graphics support. 
Plus you get low- 
cost updates from 
the Interface 
Technologies 
J fast-growing 
, ‘library of new 
programming modules. 









The Modula-2 development system’s toolkit of 
ai modules turns big programs into smaller projects. 


Increase productivity for $249 


Interface Technologies’ Software Development 
System is fast, powerful and unlimited. It works so well 
that it’s the same tool Interface Jechnologies is using to 
write business and consumer applications in Modula-2. 

For $249, you get the syntax-directed editor and 
compiler, linker, module library and tutorial that will 
have even modestly experienced programmers writing 
in Modula-2 in days. And you have full rights to your 
work; there’s no license fee for programs you develop 
with the Interface Technologies system. 









You can use it on any IBM® PC, XT, AT or 
compatible computer with two double-sided, double- 
density floppy drives and 320K RAM diskette. 

You get a thoroughly indexed, comprehensive user's 
manual and free telephone support from Interface 
Technologies. But the most important thing you get is 
the future, and the programming language of the future 
is Modula-Z2, and now it’s easier than ever. 

For more information, or to order the Modula-2 
Software Development System, call 1-800-922-9049 
today. In Texas, call (713) 523-8422. 

You can also order or 
request further in- 
formation by 
mail. Just fill 
out the cou- 
pon below 
and send it 
in. Act today 
and receive 
your system 
soon. 

















Operates on the new 

IBM PC AT, as well as 
the PC, XT, and all other 
IBM-compatible computers. 





ee ee ee ee ir eee 


NAME 
ADDRESS 

[ city 
PHONE 


PLEASE CHECK ONE: 
LJ AMERICAN EXPRESS 
LICHECK ENCLOSED 
CHARGE ACCOUNT NUMBER 


DHOOOOOOOOOOUOOUUUOO 


STATE 12-2 ZIP 


OVISA CLIMASTERCARD 


i EXPIRATION DATE SIGNATURE 
PLEASE SEND ME______ COPIES @ $249 EACH. 


INTERFACE TECHNOLOGIES CORPORATION 
3336 RICHMOND, SUITE 200, HOUSTON, TX 77098 
Texas residents, add 6. 125% Sales Tax. DD/2 


eee SD cciesiall a ee 
IBM is a registered trademark of International Business Machines Corporation. 


MODULA-2 SOFTWARE 
, DEVELOPMENT SYSTEM 


La ia i 


Circle no. 50 on reader service card. 


THE SOFTWARE DESIGNER 





by Michael Swaine 


When this magazine was first published 
in January 1976, its title was Dr. 
Dobb’s Journal of Tiny BASIC Calis- 
thenics and Orthodontia, with the sub- 
title “Running Light Without Over- 
byte” (a phrase that one reader recently 
asked us to bring back). The first issue 
was filled with very tight code (and dis- 
cussions of code) designed to fit in the 
limited memory of the first microcom- 
puters. Hence “running light”; hence 
“without overbyte”: it made sense in 
1976 to squeeze every last byte out of 
your system. But now it’s nine years 
and ninety-nine issues of DDJ later, and 
the memory space of the typical micro- 
computer has increased a thousandfold. 
Does it make any sense to talk about 
running light in 1985? 

To get an answer to that question, I 
called Dennis Allison, the paradigmat- 
ic light runner, in Geneva. 

Dennis is the ‘‘Do” of ‘“‘Dobb.” 
When and he and Bob Albrecht of 
People’s Computer Company 
launched this magazine as a three-is- 
sue newsletter, they gave the job of 
naming their creation to Rick Baka- 
linsky, who was then PCC’s entire pro- 
duction department. Rick somehow 
got the idea that Dennis was “Don” 
and combined “Don” and “Bob” to 
produce “Dobb” (doubling the “b”’ to 
make it more namelike). 

But Dennis is not just Do; among 
other things (many other things), he is 
a visiting lecturer in Geneva this 
month and next month will be doing 
something or other in Crete. Among 
the memorable things Dennis has done 
for DDJ over the years is a column on 
algorithms he wrote during the editori- 
al tenure of Suzanne Rodriguez 
(whose reminiscence about Bob and 
Dennis appears in the “Festschrift for 
Dr. Dobb” elsewhere in this issue). 

Dennis readily agreed that the world 
of microcomputer programming had 
changed radically since the early days. 
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“It’s different now that memory is 
free,” he told me. ‘““When DD/J started, 
the Altair had 256 bytes of memory. 
That’s a far cry from today, when for a 
reasonable sum of money you can get 
64K of memory, and many machines 
have half a megabyte. That changes 
the whole scale of things.” 

Did that mean that the urge to cre- 
ate the great hack was no longer there? 
In Hackers, Steven Levy wrote about 
“the last hacker’; was he right in his 
assessment that commercial consider- 
ations had nudged out this motivation? 

‘Tt’s still there,’’ Dennis said. 
“There’s a certain pride in making 
code as tight and as efficient as possi- 
ble. I write compilers and I| take plea- 
sure in coding as efficiently as I can in 
writing [parts of the] compiler. But of- 
ten it is done as an aesthetic exercise 
more than anything else. If you look at 
Don Knuth’s code, you'll find that it’s 
elegant and well-organized—and eff- 
cient in this same sense.” 

But Knuth is an academician and an 
artist in his work. He recently got into 
typefont design for purely aesthetic 
reasons. Is tight coding professionally 
important, or is it just pretty? 

“It’s still important to use code eff- 
ciently. The one thing that’s virtually 
guaranteed is that you won't have 
enough cycles. You'll never have 
enough memory, because expectations 
[can] rise faster than costs [can] drop.” 

Was it, then, a question of where 
you invested your hacking energy? 

“Yes. The rule is that 4% of the code 
does 50% of the work, and the place 
where you need to squeeze code and 
get the number of instructions down is 
in that 4%.” 

Tightening the critical algorithms 
till they squeak, rather than scroung- 
ing space for one more cell in the 
spreadsheet? 

Dennis agreed, and then went on to 
talk about something near and dear to 


the hearts of DDJ readers for nine 
years: the virtue of publishing program 
listings. 

‘““DDJ is important as a journal be- 
cause of the code. It was started to pub- 
lish code and it has always published 
code. It publishes more code than any 
other magazine. And it’s still my belief 
that people [programmers] learn from 
reading other people’s code.” 

What they learn, of course, is how to 
program well: they pick up tricks, in- 
sights, algorithms, all of which are par- 
ticularly well expressed when present- 
ed in the form in which they will 
ultimately be realized: as code. We 
hope to go right on publishing useful 
and educational code, including both 
programs significant in themselves and 
bits of code that demonstrate some ex- 
emplary algorithm or insight. 

Toward the latter end, we will be re- 
introducing next month a column on al- 
gorithms, written by none other than 
Dennis Allison. The tentative title 1s 
“Allison on Algorithms.” Well, it’s 
descriptive. 

With Bob Albrecht’s column on 
‘“Realizable Fantasies,” previewed in 
the “Festschrift for Dr. Dobb” else- 
where in this issue, the founders have 
returned to DDJ. DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 196. 
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February 1985, #100 


Dr. Dobh’s Journal 


A. Your primary job function: (Check one only} 


L] Company management (Pres., V.P., Treas., 
Owner, Gen. Mgr., Mktg. Dir.) 

LC} Computer systems management (V.P. EDP, 
MIS Director, Data Processing Mgr., Data 
Communications Mgr., Network Planner) 

LJ Engineering management (V.P. Engrg., Chief 
Engr., Tech. Director, Dir. R&D) 

LJ Systems integrators (Systems Designer, Project 
Engr., Systems Application Engr., Technical 
Staff Members) 

LJ Consultants (Computer/EDP/Data Communi- 
cations Consultant) 

C) Educators (Educational users and instructors 
of computer technology) 

CJ Systems/Programming specialists—mini-micro 
systems 

L] Other (Please specify) 


B. Which languages are you MOST interested 
in? 


CL) BASIC ia CL) PL/I 

C) Fortran CJ LISP CJ) APL 

CL} COBOL JU Prolog CL] Logo 

CL) Pascal L) Ada CJ Smalltalk 
(] Modula-2 CO Forth Other 


C. What is the operating system? 


CJ CP/M (or derived) 

C) UNIX (or derived) 

CL] MS-DOS (or derived) 
CL} Other 
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E. What best describes the work you do with 
this microcomputer? 


D. Please indicate which of the following micro- 
computers you currently own and/or plan to 


buy in the next 12 months. C1 Business functions 


Plan C1 Software/Hardware development 

pa ie = Buy 1 Scientific/Engineering/R&D applications 

e 
1 O gO F. Are you the decision maker or very influential 
Digital Equipment/DEC O 0 in computer-related purchases at work? 
Hewlett-Packard O O 
IBM Og O G. Is your company a dealer, distributor, or 
Macintosh O Og systems house for microcomputers? 
Radio Shack/Tandy TRS 80 CO O OC Yes O No 
Texas Instruments C) O 
Other (Specify) Oo O H. Subscriber 
None O LO LJ Yes L] No 





To obtain information about products or services mentioned in this issue, circle the appropriate number listed below. 
Use bottom row to vote for best article in issue. One card per person. 
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4,000 


Programmers 


depend onus 


to find, compare, evaluate 
oroducts and for solid value. 


THE PROGRAMMER'’S SHOP serves serious microcomputer 
programmers . . . from giant institutions to small independents. 
Specializing helps us provide 100s of programming products 
... technical literature . . . specialized evaluations and more 
to help you find and evaluate. Other services like . . . special 
formats .. . rush delivery . . . payment options (POs, COD, 
credit cards, etc.) .. . newsletters . . . and reports help you 
save time, money, and frustration and get solid value. 


ARTIFICIAL INTELLIGENCE 
EXSYS - Expert System building 
tool. Full RAM, Probability, Why, 
Intriguing, serious. PCDOS $295 


GC LISP - “COMMON LISP”, Help, 
tutorial, co-routines, compiled 
functions, thorough. PCDOS $475 


TLC LISP - “LISP-machine’-like, 

all RAM, classes, turtle graphics 
8087 for CP/M-86, PCDOS or 
MSDOS $235 


TLC LOGO - fast, classes. CPM $139 


PROLOG-86 - Learn fast, Stan- 
dard, tutorials, samples of Natural 
Language, Exp. Sys. MSDOS $125 


Expert System front-ends for 
PROLOG: APES ($275), ES/P 
($1895) 


Other solid alternatives include: 
lQ LISP ($155), MuLISP-86 
$250), WALTZ LISP for CPM 
($159), MicroPROLOG ($275). 


DEBUGGERS 


CODESMITH-86 - Symbolic, multi- 
window, very visual. PCDOS $139 


PERISCOPE DEBUGGER - load 

after “bombs”, symbolic, “Reset 

box”, 2 Screen, own 16K. PCDOS 
$295 


Consider others like SYMD ($119), 
Mylstar ($119), Pfix ($175), TRACE 
($115), ATRON ($269). 


ACTIVE TRACE for BASICA, 
MSBASIC. CPM or MSDOS. $72 


SOURCE PROBE by Atron for 
Lattice, MS C, Pascal. Windows 
single step, 2 screen, log file. 
PCDOS $395 





Call for a Catalog, literature on any product or a free literature “Packet” on: “Al”, 
BASIC, C, COBOL, Debuggers, Editors, FORTH, FORTRAN, Libraries, PASCAL 


C PROGRAMMING 
INSTANT C - Interactive develop- 


ment - Edit, Source Debug, run. 
Edit to Run - 3 Secs. MSDOS $500 


“INTRODUCING C’” - Interactive 
C to iearn fast. 500 page tutorial, 
examples, graphics. PCDOS $95 


MEGAMAX C - native Macintosh 
has fast compile, tight code, K&R, 
toolkit, .OBJ, DisASM MAC $295 


CROSS COMPILERS by Lattice, 
Cl. VAX to 8086. VMS $3000 


C LIBRARIES 
COMMUNICATIONS by Greenleaf 
($149) or Software Horizons ($139) 
includes Modem, interrupts, etc. 
Source. 


C SHARP Realtime Toolikit - well 
supported, thorough, portable, 
objects, state sys. Source $600 


GRAPHIC - scientific graphics, 4096 

by 3200 pixel - map to device, 

Zoom. 8087, Source. MSDOS_ $195 

ROMPack - special $Main .EXE 

editor, source, tech support, 8086. 
$195 


SUPPORT PRODUCTS 

BRIEF Programmer’s Editor - undo, 
windows, reconfigurable, macro 
programs, powerful. PCDOS $195 


PLINK-86 for Overlays, most lang.., 
segment control. MSDOS $325 


PROFILER-86 - faster programs 
with less work. Learn quick, sym- 
bolic, All Lang. MSDOS $125 


SCIL - Source Librarian to manage 


Versions, Doc, Minimize disk 
space, confusion. MSDOS $335 





CALL TOLL FREE 800-421-8006 


THE PROGRAMMER'S SHOP ° 


The programmer's complete source for software, services and answers 


128-D Rockland Street, Hanover, MA 02339 In Mass.: 800-442-8070 or 617-826-7531 
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you can edit, compile and test your 
program from inside the EC editor.* In 
fact, EC gives you complete access to the 
operating system. Do a directory, copy 
or delete files, even run other programs 
without ever leaving EC! 


MULTIPLE WINDOWS— ) 

Forget about dumping a file you're editing 
just so you can see what is in another 

file ... open a new window, up to five of 
them, and read in the file you want to use. 


All windows can be shown on the screen 
at the same time; or the screen can be 
dedicated to just a single file, while 

the others are kept in the background— 
only a keystroke away. You can even cut 
and paste blocks of text between 
windows! 


FULL SCREEN EDITOR FOR THE IBM— 
Developed specifically for the IBM PC, EC 
makes extensive use of the entire PC 
keyboard so editing is fast and intuitive. 


In addition to standard editing features, EC 
supports command and text macros, word 
wrap, paragraph reformatting, horizontal 
scrolling, and control for color monitors. 


DEMO DISK IS ONLY $5— 

Call or write for our full-featured demo. 
You'll get a standard version of EC that 
handles up to 10K worth of files and a 
complete set of documentation. 


See for yourself how pleasant it is to use 
an editor that gives you both unrestricted 
access to the operating system and 
multiple windows. 


You won't be disappointed! 


EC EDITOR - $125 
EC DEMO - $5 (plus $1.65 for COD) 


* EC runs on an IBM PC, or look-alike, with at least 
128K RAM under DOS 1.1 or higher. To use the 
DOS interface feature you must have DOS 2.0 or 
higher and enough RAM to run the additional 
program. 


IBM is a trademark of International Business Machines 
MO. RESIDENTS ADD 6% SALES TAX 


- OURCE 


C SOURCE 
12801 Frost Road e Kansas City, MO 64138 


816-353-8808 
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CP/M EXCHANGE 


by Robert Blum 


Buffered Disk I/O 

The attempt to predict the length of a 
mechanical operation is easy when the 
system involves only a single device. 
The level of complication increases dra- 
matically, however, when the system 
comprises two or more dependent de- 
vices. It simplifies the matter to realize 
that total system performance will be 
no greater than that of the slowest part. 

A personal computer is a perfect ex- 
ample. The electronic portion of the 
computer performs its task at blinding 
speeds, but read a record from disk, and 
you quickly find the slowest part of the 
computer. A few techniques can mini- 
mize the mechanical delays encoun- 
tered when transferring data to a disk 
drive. The most common examples are 
logical sector buffering and physical 
sector skewing. Both are typically a 
standard part of the operating system. 

Further improvements are more dif- 
ficult to achieve. Most require addition- 
al or improved hardware, which is im- 
practical in many cases. This places the 
burden of any further improvement di- 
rectly on the application program. 

To increase the throughput of the 
CP/M, we can use any extra memory to 
buffer as much data as is practical. This 
manner of speeding things up circum- 
vents one of CP/M’s problem areas and 
puts all the system’s resources to use— 
probably for the first time. 

The CP/M problem has to do with 
the number of I/O operations neces- 
sary to write a record to disk. This was 
of no concern when disks were recorded 
in single-density format. But as im- 
proved hardware enabled higher bit 
rates, reliably larger sector sizes saw al- 
most immediate use. This change al- 
lowed the total storage capacity of the 
media to double. There was, however, a 
price to be paid for this improvement. 

CP/M uses a single I/O buffer to 
transfer data between memory and the 
disk drive. A 1:1 logical-to-physical 
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EXECUTION TIME VS NUMBER OF BUFFERS 
READING A FILE OF 1000 RECORDS 


66 8h 166 
HUMBER 


EXECUTION TIME VS NUMBER OF BUFFERS 
READING A FILE OF 1000 RECORDS 
AND WRITING A FILE OF THE SAME SIZE 


NUMBER OF MEMORY BUFFE 
Figure 2 
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sector size relationship ensures trans- 
fer without buffer conflict. Changing 
the relationship to 4:1, however, can 
require up to three times as much disk 
I/O to transfer one logical sector of 
data. For a more complete explanation 
of buffer conflicts, refer to the Decem- 
ber column. 

Putting memory-resident data buff- 
ers to work speeding data through your 
machine can be as simple as specifying 
a parameter. When writing CBASIC as 
a Master’s project, Gordon Eubanks 
made provision for the programmer to 
indicate how many data buffers to al- 
locate. The last parameter of the 
OPEN statement (following the BUFF 
keyword) specifies how many record 
areas to set aside. 

To plot the effect of using a varying 
number of data buffers against pro- 
gram execution time, I wrote two sim- 
ple benchmark programs. The first 
(Listing One, below) requests how 
many data buffers to allocate, opens an 
input file, and executes 1000 sequen- 
tial reads. Total program execution 
time is plotted in Figure 1 (page 98). 
The system I used to run the bench- 
mark utilizes a physical buffer size of 
512 bytes, which represents a logical- 
to-physical sector ratio of 4:1. 

As you can see from Figure 1, there 
was no runtime improvement when 
from one to four buffers were allocat- 
ed. When six buffers were used, how- 
ever, runtime decreased markedly. An 
even larger decrease resulted when 
eight or more buffers were allocated. 

The reason for the runtime improve- 
ment is that the physical sector buffer 
| contains four logical sectors. In opera- 


tion, the first program read request 
fills the physical sector buffer with 
four logical sectors. Each subsequent 
read request is satisfied directly from 
the memory buffer until it must be re- 
plenished from disk. When the data 
buffer exceeds the size of one physical 
sector, the possibility of reading two 
sectors in a single revolution of the disk 
is very good. Allocating six or more 
buffers reduced the program runtime 
by nearly 50%—obviously an improve- 
ment well worth pursuing. 

Runtime improvements come even 
more quickly when a program progres- 
sively reads from one file and writes to 
another. To plot this condition, I wrote 
a second benchmark program (Listing 
2, page 100). Its results are contained 
in Figure 2 (page 98). The effect of 
multiple data buffers on this scenario 
is even more dramatic. 

The reason for the sudden decrease 
in runtime is the single I/O buffer 
maintained by CP/M. When only a sin- 
gle record buffer is chosen for the 
benchmark, most of the program’s 
runtime is consumed by buffer mainte- 
nance. To understand better why this 
function consumes so much time, let’s 
trace CP/M’s data flow. 

The first record read requires that 
the system perform a physical sector 
read from disk. The next I/O opera- 
tion is a write. Because CP/M’s buffer 
contains only data from a previous 
read, you can overwrite it without re- 
gard to destroying data. The next oper- 
ation is another read. But before the 
selected physical sector can be brought 
in from the disk, the current CP/M 
buffer must be written onto disk; oth- 


erwise, the data it contains will be 
overwritten. The next operation is an- 
other write, but first the physical sec- 
tor written onto disk during the last 
write operation must be read back into 
memory for updating. 

From this study of a typical data 
flow, we realize that each write opera- 
tion includes a pre-read of the physical 
sector on all but the first logical sector 
of each physical sector. Also included 
in each read is a physical sector read to 
refresh CP/M’s I/O buffer. Data buff- 
ering of only a single record in this sit- 
uation can account for an I/O reduc- 
tion of at least 50%. 

To conclude this discussion, I want to 
share an assembly language routine 
(Listing Three, page 102) that also per- 
forms the data buffering function. 
SFXIO is a part of SYSLIB3 now avail- 
able in the public domain and from 
Echelon, Inc. One particularly interest- 
ing concept used in this routine is the 
transfer of information between the ap- 
plication program and the subroutine 
by use of a control block. This method 
is especially effective in trimming the 
development cycle because it clusters 
all the relevant control information into 
a fixed area of memory. 

I will leave any further discussion of 
this subroutine to you. If you have any 
questions about this subroutine, please 
write me in care of this column. If you 
want to see about getting SYSLIB3 on 
disk, you can reach Echelon at the fol- 
lowing address: 101 First Street, Los 
Altos, CA 94022 (415) 948-3820. 

DDJ 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 197. 





CP/M Exchange 
Listing One 


REM 


REM THIS PROGRAM READS A FILE OF 1668 RECORDS WITH VARYING NUMBERS 
REM OF MEMORY BUFFERS FOR THE PURPOSE OF SPEED COMPARISIONS 


REM 


188.6 
STRING DRIVE,\ 
FILE.NAME,\ 


INPUT.DATA 


INTEGER RECORD.SIZE,\ 
FILE.NUMBER,\ 
RECORD.COUNT,\ 
LOOP.COUNTER, \ 
NO.OF .BUFFERS 
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(Continued on next page) 
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CP. 7 M E XC hang e (Listing Continued, text begins on page 98) 


Listing One 
DRIVE =. "Cs" 
FILE.NAME = "SPEED.DAT" 
RECORD.SIZE = 128 
FILE.NUMBER = 1 


RECORD.COUNT = 1909 
NO.OF .BUFFERS = 1 


200.0 
INPUT "Enter number of input buffers to use: "; NO.OF.BUFFERS 
OPEN DRIVE + FILE.NAME\ 
RECL RECORD.SIZE\ 
AS FILE.NUMBER\ 
BUFF NO.OF.BUFFERS 
308.0 


FOR LOOP.COUNTER = 1 TO RECORD.COUNT 
READ #FILE.NUMBER; INPUT.DATA 

NEXT LOOP.COUNTER 

CLOSE FILE.NUMBER 


END 
4 - 51 
2 «31: RS 
4 = 5) U°E 
M.B :'6 - 46 NC 
ae 8 | - 38 TO 
ie a ae 
OF 20) #235 2M-D 
RE 46 - 32 ES 
YR. G8. 38 
S* 88 = ="3¢ 
188 - 30 


LISTING 1 - READ ONLY SPEED TEST 


End Listing One 
Listing Two 
REM 
REM THIS PROGRAM READS AND WRITES A FILE OF 1@@@ RECORDS WITH VARYING 
REM NUMBERS OF MEMORY BUFFERS FOR THE PURPOSE OF SPEED COMPARISIONS 
REM 
180.9 
STRING DRIVE,\ 
INPUT.FILE.NAME,\ 
OUTPUT.FILE.NAME,\ 
INPUT.DATA 
INTEGER RECORD.SIZE,\ 
INPUT.FILE.NUMBER,\ 
OUTPUT.FILE.NUMBER,\ 
RECORD .COUNT,\ 
LOOP.COUNTER,\ 
NO.OF .BUFFERS 
DRIVE<= *e3" 
INPUT.FILE.NAME = “SPEED.DAT" 
OUTPUT.FILE.NAME = "OUTSPEED. DAT" 
RECORD.SIZE = 128 
INPUT.FILE.NUMBER = 1 
OUTPUT.FILE.NUMBER = 2 
RECORD.COUNT = 1000 
NO.OF.BUFFERS = 1 
200.90 
INPUT "Enter number of input buffers to use: "; NO.OF.BUFFERS 
OPEN DRIVE + INPUT.FILE.NAME\ 
RECL RECORD.SIZE\ 
AS INPUT.FILE.NUMBER\ 
BUFF NO.OF.BUFFERS 
CREATE DRIVE + OUTPUT.FILE.NAME\ 
RECL RECORD.SIZE\ (Continued on page 102) 
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It’s a real bargain! Here’s why: 

e Only $49.95 plus shipping common and absolute pro- 

e 8080 to Z-80 Source Code gram spaces 
Converter e Customize the Macro : 

e Generates Microsoft com- Assembler to your require- 
patible REL files or INTEL ments with installation 
compatible hex files program i 

igi 3 times faster than 

¢ Compatible with Digital ° Over 
Research macro assem- Microsoft M80 macro 
blers MAC & RMAC assembler 


igi e Z-80 Linker and Library 
: Sle cae Manager for Microsoft com- 


tible REL files available 
e Full Zilog mnemonics ii 


as a total package with 
e INCLUDE and MACLIB files Macro Assembler for only 


e Conditional assembly $95.00 
e Separate data, program, e Manual only is $15 
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Once you choose Lattice, 
our friends will C you through... 















LATTICE INC.: LATTICE WINDOWS, 
CURSES UNIX SCREEN CONTROL LIBRARY, 
C-FOOD SMORGASBORD, dB-C ISAM 
COMPATIBLE WITH dBASE I] AND 
il... LIFEBOAT ASSOCI- 
ATES: FLOAT 87 8087 SUPPORT 
a PACKAGE, HALO GRAPHICS 
PACKAGE, PANEL SCREEN LI- 
BRARY... GREENLEAF SOFT- 
WARE: THE GREENLEAF C 
FUNCTIONS... C SOURCE: 
BASIC_C C FUNCTIONS FOR BA- 
SIC USER... SOFTCRAFT: 
BIRIEVE ISAM FILE SYSTEM, 
BTRIEVE ISAM NETWORK FILE 
SYSTEM ... BLAISE COMPUT- 
ING: TOOLS, TOOLS2, VIEW 
MANAGER SCREEN ss PACK- 
AGE MORNING — STAR 
SYSTEMS: PROLIBRARY, PRO- 
SCREEN ... CREATIVE SOLUTIONS: 
WINDOWS FOR C... NOVUM GRAPHIC PRESENTATION —§ SCIENTIFIC 
ORGANUM: C POWERS PACKS, MATH- GRAPHICS . LEMMA _ SYSTEMS, 
EMATICS POWER PACKS, ADVANCED POWER INC.: C LIBRARY. . ESSENTIAL SOFTWARE, 
PACKS, DATABASE POWER PACKS,  TELE- INC.: C UTILITY LIBRARY. _ SOFTWARE 
COMMUNICATIONS POWER PACKS  W/ LABS: C UTILITIES PACKAGE .. . FAIRCOM: c- 
SOURCE: :: rrenel ASSOCIATES: PHACT tree BY FAIRCOM ISAM WITH SOURCE 
ISAM LIBRARY... RAIMA CORPORATION: 


db_ VISTA DBMS... PHOENIX: 
PLINK86, PFIX86... RELATION- 
AL DATABASE SYSTEMS: c- 
ISAM FILE ACCESS METH. 
D...MINDBANK: v-FILE 
VIRTUAL MEMORY/FILE SYS- 
TEM) HUNTER & 
READY: VRTX C INTERFACE 
LIBRARY... GRAPHIC 
SOFTWARE SYSTEMS: 
GSS DRIVERS, GSS TOOLKIT 
KERNEL SYSTEM... OPT- 
TECH DATA PROCESS- 
ING: OPT-TECH SORT... 
ACCUDATA re 
C-TREE ISAM, -SORT 
SORT | 3) TRIO SYSTEMS. 
C-INDEX + ISAM . 
COMPU CRAFT: c VIEW 
FORMS/WINDOW MANAGE- 
MENT... SCIENTIFIC ENDEAVORS: 













































Contact Lattice to learn how we can help your C program development. 









P.O. Box 3072 


oe: 

gi ; Glen Ellyn, IL 60138 

ll] LATTICE 222 
L TWX 910-291-2190 
ee 
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Software 
Development 


PCDOS/MSDOS 


Complete C Compiler 
Full C per K&R 

e Inline 8087 or Assembler Floating 
Point, Auto Select of 8087 

e Full 1Mb Addressing for Code or 

Data 

Transcendental Functions 

ROMable Code 

Register Variables 

Supports Inline Assembler Code 


MSDOS 1.1/2.0 
Library Support 


All functions from K&R 

All DOS 2.0 Functions 

Auto Select of 1.1 or 2.0 
Program Chaining Using Exec 
Environment Available to Main 


























Cc-window™ 


Symbolic Debugger 
Source Code Display 

e Variable Display & Alteration 
Using C Expressions 

e Automatic Commands 

¢ Multiple Breakpoints by Function 

& Line Number 


8088/8086 Assembler 
FAST — Up to 4 times Faster than 
IBM Assembler 

e Standard Intel Mnemonics 

¢ Compatible with MSDOS Linker 

e Supports Full Memory Model 


















8088 Software Development 


mS J QOC 


Includes: C Compiler/Library, 
c-window, and Assembler, plus 
Source Code for c-systems Print 
Utility 


c-systems 


P.O. Box 3253 
Fullerton, CA 92634 
714-637-5362 
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CP. a M Ex C hang e (Listing Continued, text begins on page 98) 
Listing Two 


AS OUTPUT.FILE.NUMBER\ 
BUFF NO.OF.BUFFERS 


388.0 
FOR LOOP.COUNTER = 1 TO RECORD.COUNT 
READ #INPUT.FILE.NUMBER; INPUT.DATA 
PRINT #OUTPUT.FILE.NUMBER; INPUT.DATA 
NEXT LOOP.COUNTER 
CLOSE INPUT.FILE.NUMBER, OUTPUT.FILE.NUMBER 
END 
4. 528 
2 269 
MB “ ad RS 
E U 6 138 UE 
es 8 Le NC 
Os 18 hes -iF 
R E 20 94 I N 
» Se 49 88 M D 
S BO: 93. B.S 
8d 68 
186 69 
LISTING 2 - READ AND WRITE SPEED TEST 
L isting Three End Listing Two 


SYSLIB Module Name: SFXIO 
Author: Richard Conn 


SYSLIB Version Number: 3.9 
Module Version Number: 1.9 
Module Entry Points: 

FXSGET FXSPUT 


SFXIO provides a group of routines which can perform byte-oriented 
file I/O with a user-defined buffer size. All of these routines work with 
an I/O Control Block which is structured as follows: 


Byte Length (Bytes) Function 
G lL Number of 128-byte pages in 
working buffer (set by user) 


1 1 End of File Flag (set and used 
by SFXIO) 
2 2 Byte Counter (set and used by SFXIO) 
4 2 Next Byte Pointer (set and used by 
SFXIO) 
6 2 Address of Working Buffer (set by user) 
8 36 FCB of File (FN and FT Fields set by 


user, rest set by SFXIO) 


The following DB/DS structure can be used in the calling program 
to implement the I/O Control Block: 


LOCTE + 
DB 8 ; Use 8 128-byte pages (1K) 
DS 1 ; Filled by SFXIO 
DS 2 ; Filled by SFXIO 
DS 2 ; Filled by SFXIO 
DW WORKBF ; Address of Working Buffer 
LOCECB: 
DB g ; Current Disk (Inited by SFXIO) 
DB MYPLTLE°! ; File Name 
DB J i ; File Type 
DS 24 ; Fill Out 36 Bytes 
WORKBF: DS 1024 ; Working Buffer 


All uses of the routines contain the address of IOCTL in DE. 
Note that if you use a buffer for input, DO NOT use it for output also! 
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‘STEP UP TO ELEG, . 


—— on for produc : vity - 
_ portability, = : 


sys 
FORTH 


for the Apple® | 


SOFTWARE DEVELOPMENT FACILITIES. Language and 
SeCurelsielae 
-ANGUAGES INCLUDE: C, Fortran 77, RATFOR, COBOL, SNOBOL, 
BS, Assembler + LISP. 
e USENET Bulletin Board System—800 + networked international 
UNIX sites, 190 + categories, 300 + new articles per day. 
e Inter/intra system mail + communications. 
® UNIFY: for professional data-base application development. 
* UNIX & System enhancements from U.C. Berkeley and 
Korsmeyer Electronic Design Inc. 
e Online UNIX manuals + Expert consultation available. 
e Just a local modem call from 300 + cities nationwide 
via Telenet. 
_ © Complete photo typesetting service. 
__ @ FAST and LOW COST, low as $8.95 hr. connect. 
¢ $24.95 = 1 hr. FREE system time, SOLUTION 
: News subscription, BYTE BOOK: Introducing 
The UNIX System, 556 pp. — 
_ “UNIX is a trademark of Bell Labs. 


Fixed point speed can rival that of float- 
ing point hardware. But the details have 
been a well kept secret—until now. The 
following graphs were generated by fixed 
point examples from the ISYS FORTH 
manual. 


= ELECTRONIC DESIGN, INC = 
5701 Prescott Avenue Lincoln, NE 68506-5155 
402/483-2238 10a-7p Central | 


Parallel Resonance with Damping 
BASIC 213 sec ISYS FORTH 27 sec 
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Fast native code compilation. Sieve 
benchmark: 33 sec 

Floating Point—single precision with 
idg-lareciale(clane-| i 

Graphics—turtle & cartesian with 70- 
column character set 

Double Precision including D*/ 

DOS 3.3 Files read & written 
FORTH-83 with standard blocks 
Full-Screen Editor 

Formatter for word processing 

Macro Assembler 

Price: $99, no extra charges 


Specify format: __ 
5%" PC-DOS 3 
8’ CP/M® 2 RT- 


for VISA, MC ce 9D orders, call 


[- 314-445-6833 


ILLYES SYSTEMS 
PO Box 2516, StaA 


Access Manager and CP/M are trademarks sof Digital Champaign, IL 61820 


BY FAIRCOM Research, Inc. 
c-tree and the circular disc logo a are © trademarks 
of FairCom 


mW =yei aval (er-] @m panke) gaat: 410) 0p 


2606 Johnson Drive 217/359-6039, mornings 


Columbia MO 65203 © 1984 FairCom For any Apple ][ model, 48K or larger. 
Apple is a registered trademark of Apple 


Computer. 
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In 1985 
More 
lishers 
Will Be 


Bound For 
Softcon. 


Sunday, March 31—Wednesday, April 3, 1985 Georgia World Conference Center, Atlanta 








lf you publish or develop software, you can’t afford to miss To register, just send your check for $195 for four days of 
Softcon, the International Conference for Software publishers | conferences and exhibits, or $35 for exhibits-only to the 
and developers. address below. Please include your name and address 


and make checks payable to Softcon. 
In only two years, Softcon has become the 15th largest trade 


show in America. Proof that software is the fastest growing For a free Softcon brochure, call or write Softcon, c/o Northeast 
product in the world. And that Softcon is the premier Expositions, 822 Boylston Street, Chestnut Hill, MA 02167. 
industry event. 617-739-2000. Please specify whether you are interested in 


attending or exhibiting. 
Softcon has 850 exhibiting companies. That’s 600 more software 
companies than the largest hardware and electronics shows. 
Softcon’s 3000 booths will showcase more than 20,000 software 
products for professional, home, educational, entertainment, 
office, business, industrial and vertical market applications. 
Softcon features software for micros, minis and main frames. 


Nearly 250 of the world’s most respected software authorities 
will participate in this year’s conference program. There will 
be three separate conferences—one for merchandisers and 
distributors, one for corporate and institutional users, and one 


for software industry technical personnel. Each conference 
will comprise 75 seminars, panel discussions, forums and 
workshops. 


The International Conference 
and Trade Fair for Software 
Publishers, Merchandisers, 

and Business Users 





Softcon is a registered trademark of Northeast Expositions, Inc. 


BUFFERED I/O BOARD Introductory Price * $59.95 
With despool functions, protocols supported: XON/XOFF, ETX: ETB/ACK 


6k, 
Serial I/O Serial I/O Parallel Parallel 
110-19200 Baud 110-19200 Baud In Out 
Programmable Z80 Control 64K yt | 
Timer Processor Buffer RAM 
2K Program EPROM 
Vectored S-100 Interface Programmable Functions 
Interrupts * 16 Bit /O Addressing | |Dynamic Buffering 


80 CHARACTER VIDEO BOARD 


25 Lines with status, compatible with Wordstar & dBase 


- 
s 2716 Char. | | 2716 Alternate Keyboard 
SS Sep. Composite Generator Character Pah Parallel 
Syne.| |Video EPROM Gen. EPROM | |O4t | Ione 
8275 CRTC 
Baverse Video ae Control aiue Ahead 
Highlight, Blink Ci siete 
Screen 2K Program pao apap Memory 
RAM EPROM Addressing Mapped I/O 


&. 


Includes Bareboard, Heatsink & Documentation Call or write for more information. 


Simpliway Products Ca. 8 Sea 
P.O Gar 60/ —_ 
Hoffmasr Estates, )L.60195 mz 


(312) 359-1537 esaline 


OEM dealer pricing available, $3.00 S/H, IL. Res. add 7% tax i | 
dBase™ - of Ashton- Tate Corp. — Wordstar™ - of Micropro Int'l. Corp ; 
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Have you been waiting on your slow floppy disk | Someday you'll get a SemiDisk. 
drives too long? SemiDisk Systems has a disk Until then, you'll just have to 
emulator for you! It'll put you in the fast lane, with 
ultra-fast data transfer, huge storage capacity, conve- 
nient battery backup, and a handy print spooler. SemiDisk I, $-100 $995 


SemiDisk II, S-100 $1295 $2549 


Have you been waiting for a SemiDisk big enough 
IBM PC, XT, AT $945 $2499 


to handle your large applications programs, files, and 
databases - all at once? Your wait is over. SemiDisk QX-10,QX-16 $799 $2499 


TRS-80 II,12,16 $995 $2499 


Systems is now delivering 2 megabytes of disk storage 
Battery Backup Unit $150 


on a single board! 


512k, 1Meg and 2Megabyte SemiDisks are available 
for S-100 computers, (including the H/Z-100 operat- SE MI DI S K 
ing under Z-DOS), IBM PC, XT, & AT, the TRS-80 Mod- 
els II, 12, & 16, and the Epson QX-10. Once you've SemiDisk Systems, Inc. 


tried a SemiDisk you'll know why we say. . . P.O. Box GG, Beaverton, Oregon 97075 
503-642-3100 


Call 503-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha, all SemiDisk-equipped 
computer bulletin boards (300/1200 baud). SemiDisk, SemiSpool trademarks of SemiDisk Systems. 
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CLTTEW vanace 

| MANAGER 
cVIEW helps to create and com- 
municate with forms that will 

enable you to provide a 
sophisticated user interface 


for your C applications 
programs. 


Ci86, Lattice, Mark Williams 
Dynamic Forms Position 


Special Key Definitions 
Input Range Validation 
Color or Monochrome 
Block Cursor Option 
Selection Sets 


cVIEW Screen Manager 
cVIEW with Source Code 
cVIEW Demo 


CompuCraft — (313) 
42101 Mound Road 731-2780 
Sterling Heights, Michigan 48078 
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Graphs without 
Graphics? 


No need for screen graphics. Publishable 


graphs on your dot matrix printer. 


Easy to Use. No programming. 
CP/M 80 or 86, MS-DOS, or PC-DOS. 
Excellent Manual. Most disk formats. 


Data Plotter” 


THEORETICAL 


xxx EMPPIRICAL 


DISPLACEMENT 





HBAILLISECONDS 


J rl Line Graphs & Shipping...... add $3 
rk Scatterplots. .$69 oy tcide US and 

Software = Bar Graphs & Canada 223s add $6 

7 Cedars Road Pie Charts . . $69 Speci which Printer 


Caldwell, NJ 07006 Both for . . . .$99 (201) 226-7552 
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CP “a M Ex C hang e (Listing Continued, text begins on page 98) 
Listing Three 


EXTERNAL SYSLIB REFERENCES 


=e Se Se 


EXT FSDELETE,FSMAKE,FSOPEN,FSCLOSE 
EXT FXISOPEN,FXOSOPEN,FXISCLOSE,FXOSCLOSE 
EXT FSREAD,FSWRITE 
EXT INITFCB 
EXT HMOVB,SHFTRH, SHFTLH 
; 
; CONSTANTS 
; 
TBUFF EQU 88H ; DMA BUFFER 
CTRLZ EQU i Ask 8” A ate / 


MACRO ROUTINES FOR FXIO 


=e =e Se 


PUTRG MACRO 
PUSH 
PUSH 
PUSH 
ENDM 


«10 Ww 


GETRG MACRO 
POP 
POP 
POP 
ENDM 


Hot 


ENTRY POINT TO READ NEXT BUFFER FULL FROM DISK 


Tr] se me we 


XIO@: 
LDA EOF s CHECK FOR EOF 
ORA A » ABORT IF ALREADY AT EOF 
RNZ ; NZ IS ERROR CODE 
LHLD FCB 2 <PT -fO. ECB 
XCHG Eee & | Bag BY 
LDA BCNT ; GET BLOCK COUNT 
MOV B,A 
LHLD BUFADR ; GET ADDRESS OF BUFFER 
FXIOL1: 
PUSH H ; SAVE BUFFER PTR 
LHLD FCB ¥ > DE TO PER 
XCHG bee ee GS Dea 3° 
CALL FSREAD ; READ NEXT BLOCK (SECTOR) 
POP H ; GET PTR TO BUFFER 
JINZ FXIO2 
LXI D,TBUFF ; COPY INTO MEMORY BUFFER 
PUSH B ,; SAVE COUNTER 
XCHG 
MVI B,128 
CALL HMOVB 
XCHG 
POP B 
DCR B ; COUNT DOWN 
JINZ FXIOL1 
MVI A,@ ; SET NO EOF 
JIMP FXIO3 
FXIOZ: 
MVI A,@FFH ; SET EOF 
FXIO3: 
STA EOF >; SET EOF FLAG 
LHLD BUFADR 7° PT -TO.. FIRST .BYTE AS: NEXT: BYTE 
SHLD BYTENXT 
LDA BCNT ,; SET BLOCK COUNT 
SUB B ; ADJUST 
MOV H,A ; RESULT IN HL 
MVI L,@ 


(Continued on page 109) 
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C Source Code Announcing a 


RED TOTAL PARSER GENERATOR 


; <GOAL> : = <AAPID> <COMPILER> <DESIGN> 
Full Screen Text Editor 


IBM PC, Kaypro, CP/M 80 and CP/M 68K systems. SLICE YOUR COMPILER 
DEVELOPMENT TIME 

¢ RED is fast! RED uses all of ¢ RED comes with a Reference An LR(1) parser generator and several sample compilers, 
your terminal’s special func- Card and a Reference Manual all in Pascal for your microcomputer. 
tions for best screen response. that provides everything you 
RED handles files as large as need to use RED immediately. Generates parser, lexical analyzer and skeleton 
your disk automatically and * RED is unconditionally semantics 
quickly. guaranteed. If for any reason Universal, state-of-the art error recovery system 

¢ RED is easy to use for writers you are not satisfied with RED Adaptable to other languages 
or programmers. RED’s com- your money will be refunded Interactive debugging support 
mands are in plain English. promptly. Thorough documentation 

© RED comes with complete TURBO PASCAL™ INCLUDED FREE OF CHARGE 
souitte ode in standard C. RED: $95 Includes mini-Pascal compiler, assembler, simulator 
RED has been ported to main- Manual: $10 in SOURCE 


frames, minis and micros. 


SPECIAL INTRODUCTORY OFFER $1995 


Call or write today for QPARSER™ runs on IBM PC/DOS in Turbo Pascal. Parser generator in object form; all else in source. 
: ‘ QPARSER takes a grammar and generates a correct, complete, high-performance compiler with skele- 
for more information: ton semantics in Pascal source. Easy to add full semantics for YOUR application. Excellent for industrial 
and academic use. An accompanying textbook (SRA publishers) available in 1985. Training can be 
: Edward K. Ream arranged. 
edward k. ream 
: 1850 Summit Avenue Educational and quantity discounts available. Check, money order, Mastercard, Visa. California resi- 
: dents add 6.5% sales tax. 
Madison, WI 53705 








WRITE OR CALL FOR FREE BROCHURE. 
(608) 231-2952 Technical details: call 408/255-5574. Immediate delivery. CALL TODAY! 
To order: 
Either the BDS C compiler or the Aztec CII compiler is required for CP/M 80 
systems. Digital Research C compiler v1.1 is required for CP/M 68K systems. No 
compiler is required for IBM or Kaypro systems. 


Specify both the machine desired (IBM, Kaypro or CP/M) and the disk format 


described (8 inch CP/M single density or exact type of 5% inch disk). SYST po M/ CS | NJ ‘. 
; ° 


Send a check or money order for $95 ($105 U.S. for foreign orders). Sorry, I do 5 
NOT accept phone, credit card, or COD orders. Please do not send purchase orders ee 


unless a check is included. Your order will be mailed to you within one week. TOLL FREE: 800-538-9787 
( 


California residents call 408/255-5574) 
TM Turbo Pascal is a registered trademark of Borland International. 
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CP/M Exchange 
Listing Three 


CALL 
SHLD 
XRA 
RET 


e 
a 


SHE TRH 
BYTECNT 
A 


; ENTRY POINT TO FLUSH 


! 

FXOO@: 
LDA 
MOV 
LHLD 
CALL 
MOV 
SUB 
MOV 
LHLD 

FXOO1: 
MOV 
ORA 
JZ 
DCR 
PUSH 
LXI 
MVI 
CALL 
XCHG 
LHLD 
XCHG 
CALL 
POP 
JZ 
XRA 
RET 


LHLD 
SHLD 
XRA 
STA 
LDA 
MOV 
MVI 
CALL 
SHLD 
MVI 
ORA 
RET 


BCNT 
B,A 
BYTECNT 
SHE TLH 
A,B 

H 

B,A 
BUFADR 


A,B 

A 

FXOO2 

B 

B 
D,TBUFF 
B,128 
HMOVB 


FCB 


FSWRITE 
ee 
FXOO1 

A 


BUFADR 
BYTENXT 
A 

EOF 
BCNT 
H,A 

L,@ 
SHFTRH 
BYTECNT 
A, OFFH 
A 


iA 

; ON INPUT, 

r ON OUTPUT, 

a 

FXSGET:: 
PUTRG 
CALL PUTADR 
LHLD BYTECNT 
MOV A,H 
ORA L 
JINZ FXGET1L 
CALL FXIO@G 
JNZ ERRET 

FXGETI1: 
LHLD BYTENXT 
MOV A,M 
STA BYTE 
INX H 
SHLD BYTENXT 
LHLD BYTECNT 
DCX H 
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=e =e S06 


(Listing Continued, text begins on page 98) 


SET COUNT 
SET BYTE COUNT 
SET NO ERROR 


BUFFER TO DISK AND SET UP FOR NEXT WRITE 


=e ™=e Se Be BO 


=e = 


™=e 


=e Se Se NO SO 


=e 


f 


=e 


™=e “Se SO NO 


=e =e Se Se Se WO 


GET NUMBER OF BLOCKS 

cae. ENB 

NUMBER OF BYTES YET TO GO 
SHIFT. INTO H 

COMPUTE NUMBER TO WRITE 


COUNT IN B 
PT ..TO..FLIRST BYTE 


CHECK FOR DONE 
8=DONE 


COUNT DOWN 

SAVE COUNT 

PT TO WRITE BUFFER 
WRITE 128 BYTES 
COPY INTO BUFFER 
-.. 10. Fes 


WRITE TO DISK NEXT BLOCK (SECTOR) 
GET COUNT 


SET ERROR CODE 


SET NEXT BYTE 
SET NO EOF 


SET BLOCK COUNT 
eee IN HL 


SHIFT RIGHT ONE BIT 
SET BYTE COUNT 
NO ERROR 


GET NEXT BYTE FROM BUFFER/FILE 
DE PTS TO IOCB 
A=CHAR AND Z FLAG SET IF PAST EOF 


SAVE REGS 

PUT ADDRESSES 

GET REMAINING COUNT 
NO MORE BYTES? 


READ NEXT BUFFER FULL 


PT TO NEXT BYTE 
GET if 

SAVE IT 

PT TO: NEAT 

SET PTR 

COUNT DOWN 


(Continued on page 112) 





PROFESSIONAL 


BASIC 


JUST BECAME AFFORDABLE 


$99 


“outstanding” Ray Duncan- Dr. Dobbs’ Journal 


Use 640k (e.g. 250 x 250 array) 
Dynamic Syntax Checking 

19 Debugging Windows 

Run PC BASICA Programs 


OPTIONAL: 8087/80287 Support — $50 


™ @F Morgan Computing Co., Inc. 
= (214) 739-5895 
10400 N. Central Expwy., Suite 210 
Dallas, TX 75231 
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PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 
OUTSIDE OKLAHOMA: NO SALES TAX 


8087-3 Co-Processors $124.97 
DYNAMIC RAM 
256K 256Kx1 120 ns $23.97 
256K 256Kx1 150 ns $14.99 
64K 64Kx1 150 ns 2:75 
64K 64Kx1 200 ns 2.99 
EPROM 
27256 32kx8 300ns $36.25 
27128 16Kx8 250ns_ 13.57 
27C64 8Kx8 200 ns_ 11.87 
2764 8Kx8 250 ns 537 
2732A 4Kx8 250 ns 6.37 
2716 2Kx8 450 ns es 
STATIC RAM 
6264LP-15 s8kx8 150 ns $18.75 
6116P-3 2Kx8 150 ns 4.27 


OPEN 62 DAYS: WE CAN SHIP VIA FED-EX ON SAT. 


MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts .uPoo 
MICROPROCESSORS UNLIMITED 
24,000 South P Ave. 
BEGGS. OK 74421 “© (918) 267-4961 
Prices shown above are for December 25, 1984 


Please call for current prices & volume discount. Prices subject to change. Please expect higher 
or lower prices on some parts due to supply & demand and our changing costs. Shipping & 
insurance extra. Cash discount prices shown. Small orders received by 5PM CST can usually 
be delivered to you by the next morning, via Federal Express Standard Air @ $6.75! 


QUANTITY ONE PRICES SHOWN 
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PROLOG tormspos 


in the PUBLIC DOMAIN 
EDINBURGH syntax 


$29.95 


ASK ABOUT: 
e DOS Support 
e Large Model 
e Virtual Memory 


ORDERS: (215) 355-5400 
VISA, MASTERCARD, AMEX. accepted 


Tech Support: (215) 646-4894 


A.D.A. 
1570 ARRAN WAY 
DRESHER, PA 19025 
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Announcing 


BOUND VOLUME 7 


Every 1982 Issue Available For Your Personal Reference. 





Vol. 1 1976 


The material brought together in this 
volume chronicles the development in 
1976 of Tiny BASIC as an alternative 
to the “finger blistering,’ front-panel, 
machine-language programming 
which was then the only way to do 
things. This is always pertinent for bit 
crunching and byte saving, language 
design theory, home-brew computer 
construction and the technical history 
of personal computing. 

Topics include: Tiny BASIC, the (very) 
first word on CP/M, Speech Synthesis, 
Floating Point Routines, Timer 
Routines, Building an IMSAI, and 
more. 


Vol. 2 1977 


1977 found DD4J still on the forefront. 
These issues offer refinements of 
Tiny BASIC, plus then state-of-the-art 
utilities, the advent of PILOT for micro- 
computers and a great deal of mate- 
rial centering around the Intel 8080, 
including a complete operating 
system. Products just becoming avail- 
able for reviews were the H-8, KIM-1, 
MITS BASIC, Poly Basic, and NIBL. 
Articles are about Lawrence Liver- 
more Lab’s BASIC, Alpha-Micro, String 
Handling, Cyphers, High Speed Inter- 
action, I/O, Tiny Pilot & Turtle Graph- 
ics, many utilities, and even more. 


Vol. 3 1978 


The microcomputer industry entered 
its adolescence in 1978. This volume 


brings together the issues which 
began dealing with the 6502, with 
mass-market machines and 
languages to match. The authors 
began speaking more in terms of 
technique, rather than of specific 
implementations; because of this, 
they were able to continue laying the 
groundwork industry would follow. 
These articles relate very closely to 
what is generally available today. 
Languages covered in depth were 


SAM76, Pilot, Pascal, and Lisp, in addi- 


tion to RAM Testers, S-100 Bus Stand- 
ard Proposal, Disassemblers, Editors, 
and much, much more. 


Vol. 4 1979 


This volume heralds a wider interest 
in telecommunications, in algorithms, 
and in faster, more powerful utilities 
and languages. Innovation is still 
present in every page, and more 
attention is paid to the best ways to 
use the processors which have 
proven longevity—primarily the 8080/ 
Z80, 6502, and 6800. The subject 
matter is invaluable both as a learn- 
ing tool and as a frequent source of 
reference. 

Main subjects include: Programming 
Problems/Solutions, Pascal, Informa- 
tion Network Proposal, Floating Point 
Arithmetic, 8-bit to 16-bit Conversion, 


Pseudo-random Sequences, and Inter- 


facing a Micro to a Mainframe—more 
than ever! 


Vol. 5 1980 


All the ground-breaking issues from 
1980 in one volume! Systems soft- 
ware reached a new level with the 
advent of CP/M, chronicled herein by 
Gary Kildall and others (DDJ’s all-CP/ 
M issue sold out within weeks of 
publication). Software portability 
became a topic of greater import, and 
DDJ published Ron Cain’s immedi- 
ately famous Small-C compiler— 
reprinted here in full! 

Contents include: The Evolution of 
CP/M, a CP/M-Flavored C Inerpreter, 
Ron Cain’s C Compiler for the 8080, 
Further with Tiny BASIC, a Syntax- 
Oriented Compiler Writing Language, 
CP/M to UCSD Pascal File Conversion, 
Run-time Library for the Small-C 
Compiler and, as always, even more! 


Vol. 6 1981 


1981 saw our first all-FORTH issue 
(now sold out), along with continuing 
coverage of CP/M, small-C, telecom- 
munications, and new languages. 
Dave Cortesi opened “Dr. Dobb’s 
Clinic” in 1981, beginning one of the 
magazine’s most popular features. 
Highlights: information on PCNET, the 
Conference Tree, and The Electric 
Phone Book, writing your own 
compiler, a systems programming 
language, and Tiny BASIC for the 


YES! _] Please send me the following Volumes of Dr. Dobb’s Journal. 
" () ALL 7 for ONLY $165, a savings of over 15%! 


Payment must accompany your order. 


Please charge my: (J Visa 
lenclose (J) Check/money order 


Card # 

Signature 

Name Address 
City State 


Mail to: Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 
Allow 6-9 weeks for delivery. 


Code 100 


[] MasterCard 


(|) American Express 


Expiration Date 


Zip 
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Vol. 1 x $26.75 = 
Vol. 2 x $27.75 = 
Vol. 3 X $27.75 = 
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Vol. 5 x $27.75 = 
Vol. 6 x: $27.75:= 
Vol. 7 x $30.75 = 
All 7 x $165.00 = 
Sub-total $ 


Postage & Handling Must be included with order. 
Please add $1.25 per book in U.S. ($3.25 each surface mail 
outside U.S. Foreign Airmail rates available on request. 


TOTAL $ 






BRINGS 


SCIENTIFIC PASCAL 


by Harley Flanders 

A refreshing, stimulating book on 
the most rapidly growing structured 
programming language. The book is 
filled with over 400 examples and 
exercises with graded levels of diffi- 
culty. The state-of-the-art programs 
involve approximation, zeros of func- 
tions, differentiation and integration, 
differential equations, matrices, char- 
acteristic roots, fast Fourier trans- 
form, permutations—anything and 
everything connected with scientific 
programming and numerical analysis. 


1984 576 pages $21.95 (soft) 
THE PROGRAMMER’S CP/M 
NOTEBOOK 


by David E. Cortesi 

Displays the process of designing 
and building software for the popular 
CP/M operating system. Twelve 
complete, useful utility programs are 
contained in the book. For each 
program the author analyzes the 
user’s needs and develops a verbal 
specification, then designs the 
program in a high-level language, and 
presents the assembly language code 
that implements the program. 
1983 225 pages $17.95 (soft) 


PARALLEL PROGRAMMING 


IN ANSI STANDARD ADA 


by George Cherry 

A thorough introduction to parallel 
programming and algorithms in the 
military and civilian standard 
language, Ada. Uses graphical means 
(Petri nets) to introduce the basic 


DR DOBB'S JOURNAL 


RESTON BOOKS TO YOU 


concepts of concurrency, synchroni- 
zation, and rendezvous. Illustrates the 
lanugage features with complete 
programs rather than program frag- 
ments. Treats task pipelines, excep- 
tion handling in parallel programs, 
and algorithms that are optimized for 
the number of processors available. 


1984 224 pages $21.95 (hard) 
SYSTEM PROGRAMMING 
UNDER CP/M-80 


by Lawrence E. Hughes 

A thorough introduction to 8080/ 
8085 assembly language program- 
ming. Contains a great deal of data 
on how to program under the CP/M 
operating system. Gives detailed 
information on installing and modify- 
ing CP/M. Includes actual usable util- 
ity programs for CP/M, along with a 
detailed analysis of each. 


1983 208 pages $17.95 (soft) 
A USER FRIENDLY GUIDE 
TO CP/M 


by James T. Perry and 
Robert F. McJunkins 

This guide is perfect for first-time 
users—taking them from an introduc- 
tion to CP/M, to creating new dBASE 
commands. In between, the reader 
will find topics such as built-in 
commands, copying a large number 
of files, system files, user area, copy- 
ing selected parts of files, introduc- 
tion to dBASEIl, altering the data 
base contents, and more. 


1983 150 pages $16.95 (soft) 


PERSONAL PASCAL: 
COMPILED PASCAL FOR THE 
IBM PERSONAL COMPUTER 


. by David E. Cortesi and 


George W. Cherry 

Prepares the reader to use the 
Pascal programming language and 
compiled Pascal on the IBM Personal 
Computer in particular. Illustrates 
stepwise refinement to help the 
reader complete designs. Gives care- 
ful descriptions and illustrations of 
Pascal syntax to aid the reader in 
avoiding common syntactic errors. 
Emphasizes clarity of design and 
protability of code throughout. 
1984 432 pages $17.95 (soft) 


THE SMALL-C HANDBOOK 


by James E. Hendrix 

A complete description of the 
Small-C programming language and 
compiler for those who are already 
programming in other languages. 
Section 1 covers program translation 
concepts, presenting a survey of 
machine language concepts, assem- 
bly language, and the use of assem- 
bler loaders and linkers. Section 2 
introduces the Small-C language, and 
Section 3 describes the compiler 
itself, covering I/O concepts, standard 
functions, using the compiler to 
generate new versions of itself, and 
more. In addition, several appendices 
offer valuable reference information 
on Small-C programming. 


1984 272 pages $17.95 (soft) 


Mail coupon to: Dr. Dobb’s Journal/2464 Embarcadero Way/Palo Alto, CA 94303 


Yes! Please send me the book(s) in the quantities I’ve indicated below: 


—— Scientific Pascal, soft, R6931-1, $21.95 


—— The Programmer's CP/M Notebook, soft, R5641-7, $17.95 
—— Parallel Programming in ANSI Standard ADA, hard, R5434-7, 


$21.95 


— The Small-C Handbook, soft, R7012-9, $17.95 
—— Personal Pascal: Compiled Pascal for the IBM Personal 


— Computer, soft, R5522-9, $17.95 


order. 


C1) Enclosed is my payment of 
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C1) VISA (OO MasterCard 


Card No.: 
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System Programming Under CP/M-80, soft, R7456-8, $17.95 


—— A User-Friendly Guide to CP/M, soft, R8117-5, $16.95 
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Expiration date: 


State: Zip: 





Please allow 4-6 weeks for delivery. Add $1.50 per book for 
shipping and handling charges. 


Code 100 





CP pa M E XC. hang e (Listing Continued, text begins on page 98) 
Listing Three 


ZAS 


Software 



















SHLD BYTECNT ; SET COUNT 
Development Package OKRET1: 

‘The industry's most sophisticated development tool is CALL GETADR ; GET ADDRESSES 
now available for the Z-8000 and the Z-8 under GETRG 
CP/M, MDOS, andISIS. MVI A,@FFH ; SET NZ FLAG 

Includes: ORA A ; NO ERROR RETURN 

¢ ZAS Relocatable Macro Cross Assembler LDA BYTE - GET BYTE 

- 38 directives, nested macros, etc. RET : 


e ZLK Task Builder/Linker 
- resolves CALR’s , section oriented 
¢ ZLD User-Modifiable Object Loader 
e ZEX Dual Processor Run-Time Support 





PUT NEXT BYTE INTO BUFFER/FILE 
ON INPUT, A=CHAR AND DE PTS TO IOCB 
ON OUTPUT, Z FLAG SET IF WRITE ERROR 


CP/M TM Digital Research 
MDOS TM Microsoft 
ISIS TM Intel Corp 


Tr] we se we Ne Se 


lL L LL XSPUT:: 
a ooneelh ares PUTRG ; SAVE REGS 
Box C e Norwood, CO 81423 STA BYTE ; SAVE BYTE TO OUTPUT 
CALL PUTADR ; PUT ADDRESSES 
Circle no. 118 on reader service card. LHLD BYTECNT ; CHECK TO SEE IF ANY ROOM LEFT 
MOV A,H 
‘ ° ° ORA L 
Now With Windowing! pte ee 
$49.95 Basic Compiler CALL FXOO@ ; FLUSH BUFFER AND RESTART 
vr EERE et Ge mes i JZ ERRET ; ERROR 
MTBASIC expurl 
Se er ars hee ne LHLD BYTENXT ; GET PTR TO NEXT BYTE 
EN ee oo LDA BYTE ; GET NEXT BYTE 
Multitasking Windowing ‘ 
3 : MOV M,A ; STORE IT 
Handles interrupts __ Interactive ; PT TO NEXT 
Fast native code Compiles quickly INX Hi , 
Floating point No runtime fee SHLD BYTENXT 
LHLD BYTECNT ; COUNT DOWN 
MTBASIC is a true native code compiler. It runs Bytes's Sept. 
‘81 seive in 26 seconds; interpreters take over 1400 seconds! DCX H 
Because MTBASIC is multitasking, it can run up to 10 Basic SHLD BYTECNT 
tines at th time, while displaying t te win- _ 
déwe: Painatite mbt aun oe JMP OKRET1 ; OK RETURN WITH BYTE AND ADDRESSES 


MTBASIC combines the best of interpreters and compilers. To ° 
the programmer, MTBASIC appears to be an extremely fast . 
interpreter. MTBASIC compiles a typical 100 line Basic pro- 7 ROUTINE TO PUT ADDRESS BUFFERS FOR LATER USE 
gram in 1 second, yet it generates blindingly fast code. No ° 
more waiting for long compiles. > 


AVAILABLE for CP/M (Z-80) and PC-DOS systems. UTADR: 





ORDERING: Specify format when ordering. We accept Visa, XCHG FAs TO BUFFER WITH HL 
MC, checks and COD. Send $49.95 plus $3.50 shipping and SHLD BUFFER ; PUT BUFFER ADDRESS 
handling ($10 overseas) to: MOV A F M ; GET BLOCK COUNT 
STA BCNT 
_SOFIAID, Inc. INX H 
MOV A,M ; GET EOF FLAG 
P.O. Box 2412 Columbia, MD 21045-1412 amt SH 
301/792-8096 INX H | 
Circle no. 88 on reader service card. MOV u,M ; GET LOW COUNT 
INX H 
MOV D,M 
XCHG 
SHLD BYTECNT ; PUT BYTE COUNT 
No source code for . XCHG 
your REL files? . INX H 
REL MAC ; MOV E,M > GET LOW COUNT 
/ | t INX H 
converts a REL file in the Microsoft™ } MOV D,M 
M80 format to a ZILOG™ or 8080 source XCHG 
code MAC file with insertion of all public SHLD BYTENXT ; PUT NEXT BYTE PTR 
and external symbols. t XCHG 
@ REL/MOD lists library modules } INX H 
@ REL/VUE displays the bit stream : MOV E,M ; GET LOW COUNT 
@ 50 page manual with examples 4 INX H 
@ free brochure available re MOV D,M 
@ REL/PAK includes all of the above he XCHG 
REL/PAK for 8080 only ) . 
act BAR Sk oon aden | : SHLD BUFADR ; PUT BUFFER ADDRESS PTR 
on 8’SSSD disk for CP/M™ 2.2 XCHG 
Send check, VISA, MC or C.O.D. to 7 INX H 
. SHLD FCB ; ADDRESS OF FCB 
bid MicroSmity : RET 
COMPUTER TECHNOLOGY : 
PO. BOX 1473 ELKHART, IN 46515 , 
1-800-622-4070 ; ROUTINE TO GET ADDRESS BUFFERS BACK FOR CALLING ROUTINE 
(Illinois only 1-800-942-7317) ; 
GETADR: 





(Continued on page 119) 
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BACKUP PROTECTED 
SOFTWARE 

WITH _ 

COPY Il MAC 


From the team who gave you COPY II PLUS 
and COPY II PC comes a new complete disk 
backup utility for your MACINTOSH com- 
puter. Features include: 

¢ Bit Copy Program ¢ Copy Protect/Unprotect 

¢ Make Files Visible/Invisible ® Lock/Unlock Files 

¢ Sector/File Editor ® Copy Files/Disk 

¢ Format/Verify Disks * Rename File/Disk 





Increase the power of your 
MACINTOSH ... use COPY II MAC 


Available at your local dealer or direct from us. 


ONLY 
ENTRAL POINT 
Oftware, Inc. 39.95 





PLUS $3.00 SHIPPING/HANDLING 


9700 S.W. Capitol Highway, #100/Portland, OR 97219 
(503) 244-5782 S&S = WELCOME 


(Prepayment Required) 
This product is provided for the purpose of enabling you to make archival copies only. 
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Due to popular demand, Dr. Dobb’s Journal has reprinted its most- 
asked-for C compiler articles by Ron Cain and J. E. Hendrix, each for 
only $5.00. 
Ron Cain’s C compiler from sold-out 1980 issues #45 and #48 includes 
“A Small C Compiler for the 8080s” and “Runtime Library for the Small 
C Compiler.” 
The J. E. Hendrix reprint includes part two of “Small-C Compiler v.2” 
from sold out issue #75 and completes the first part of the compiler 
article from issue #74 which is included in Dr. Dobb’s Bound Volume 7. 
To Order: Enclose $5.00 for each copy with this coupon and send to: 
Dr. Dobb's Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 
Outside U.S., add $2.00 per copy for shipping and handling. 
Please send copy(ies) of the Ron Cain Reprint, and 

copy(ies) of the J. E. Hendrix reprint to: 


Name 
Address 


(3 Lh Ne OO an OE ae WIRE RS Zip 
ALL REPRINT ORDERS MUST BE PREPAID. Code 100 
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RUN/C:” 
The Affordable C 
Interpreter 


Available NOW for only $149.95 ! 


Finally, a painless introduction to 
the C language. With RUN /C: 
The C Interpreter you 
can create and run C language 
programs in an environment as 
easy to use as BASIC. 


RUN /C isC for the rest of us. 
It is arobust implementation of 
standard K&R. RUN /C is for 
both the beginner and profes- 
sional. 


RUN /C includes full floating 
point, 8087 support, structures, 
unions, casts and more than 100 
built-in C functions. 


With RUN /C you get all this 
with acommand structure mod- 
eled after BASIC’s using familiar 
terms such as EDIT, RUN, LIST, 
LOAD, SAVE, TRON, SYSTEM, etc. 


Since RUN /C is a true inter- 
preter it means that C programs 
can be written, tested and run 
within a single protected envi- 
ronment. It is a teaching tool and 


a source code debugger. 
Here’s more good news... 


e Great documentation: a 400- 
page, easy-to-read manual 
filled with executable 
programs 

e Array-index and pointer 
bounds checking 

e Variable-trace and dump 
diagnostics PLUS an integral 
program profiler 

e Full buffered and unbuffered 
file 1/O 

e Printer and asynch support 

e Forking to your favorite full 
screen editor with automatic 
return to RUN /7C with 
your edited program 

e System Requirements: 

IBM® PC or compatible with 
PC-DOS 2.0 or MS™-DOS 2.0 or 
greater with ANSI.SYS. 


Get things right the first time 
with RUN /C: 
The C Interpreter.™ 


For immediate delivery or more 
information, call: 


1-800-847-7078 
(in N.Y. 1-212-860-0300) 


or write: Lifeboat Associates™ 
1651 Third Avenue 
New York, NY 10128 
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CK ISSUES 





#69 Volume VII, No. 7: 


IBM-PC Issue: CP/M-86 vs. MSDOS {A Technical Comparison)—Hi-Res Graphics on 
the IBM-PC—PDP-1802, Part II—Review of Word Processors for IBM. 


#70 Volume VII, No. 8: 
Argum “C” Command Line Processor—SEND/RECEIVE File Transfer Utilities— 
Intel’s 8087 Performance Evaluation. 


#71 Volume VII, No. 9: 

FORTH Issue: Floating-Point Package—H-19 Screen Editor—Relocating, Linking 
Loader—Z8000 Forth—Forth Programming Style—8086 ASCII-Binary Conver- 
sion Routines—CP/M Conditional SUBMIT. 


#72 Volume VII, No. 10: 
Portable Pidgin for Z80—68000 Cross Assembler, Part I— MODEM and RCP/Ms— 
Simplified G8000 Mnemonics—Nested Submits—8086/88 Trig Lookup. 


#73 Volume VII, No. 11: 

Wildcard UNIX Filenames—Tests for Pidgin—68000 Cross Assembler Listing, Part 
2—Adding More BDOS Calls—The Perfect Hash—BASIC Memory Manage- 
ment—Benchmarks for CP/M-86 vs. MSDOS, and the 8087. 


#76 Volume VIII, Issue 2: 

PISTOL, A Forth-like Portably Implemented Stack Oriented Language—Program 
Linkage by Coroutines. Forth to BASIC—Linking CP/M Functions to Your High- 
Level Program—Concurrent CP/M-86—CP/M-80 Expansion Card for the Victor 
9O000—REVAS Disassembler. 


#77 Volume VIII, Issue 3: 

The Augusta P-Code Interpreter—A Small-C Operating System—6809 Threaded 
Code: Parametrization and Transfer of Control—A Common-Sense Guide to 
Faster, Small BASIC—A Fundamental Mistake in Compiler Design—Basic Disk I/O, 
Part I. 

#78 Volume VIII, Issue 4: 

RECLAIM Destroyed Directories—Binary Magic Numbers—8080 Fig-Forth Direc- 
tory & File System—SAY” Forth Votrax Driver—TRS-80 8080 to 280 Translator— 
Basic Disk I/O, Part Il. 


#79 Volume VIII, No. 5: 

The Augusta Compiler—A Fast Circle Routine—Enhancing the C Screen Editor— 
Shifts and Rotations on the Z80—The SCB, TSX, and TXS Instructions of the 6502 
and 6800—MS-DOS vs. CP/M-86—Controlling MBASIC—The Buffered 
Keyboard—IBM PC Character Set Linker—Flip Utility for the IBM PC. 


#80 Volume VIII, Issue 6: 

Fast Divisibility Algorithms—B-Tree ISAM Concepts—CP/M BDOS AND BIOS 
Calls for C—Serial Expansion in Forth—Fast Matrix Operations in Forth, Part |— 
Yes, You Can Trace Through BDOS—Julian Dates for Microcomputers—8088 Ad- 
dressing Modes—8088 Line Generator—CP/M Plus. 


#81 Volume VIII, Issue 7: 3 

The Augusta Compiler, continued—RED: A Better Screen Editor, Part |—Anatomy 
of a Digital Vector and Curve Generator—Fast Matrix Operations in Forth, Part 
Ii—The AGGHHHI Program—MBOOT Revisited—CP/M Plus Feedback—MS- 
DOS Rebuttal—68000 Tools—Sizing Memory on the IBM PC. 


#82 Volume VIII, Issue 8: 

Serial-to Parallel: A Flexible Utility Box—McW/ORDER: A Tiny Text Editor—And 
Still More Fifth Generation Computers—Specialist Symbols and I/O Benchmarks 
for CP/M Plus—CP/M Plus Memory Management—Zero Length File Test— 
PAUSEIF, QUITIF, and now SKIPIF—ACTxx Cross Assemblers. 

#83 Volume VIII, No. 9: 

FORTH ISSUE: Forth and the Motorola 68000—Nondeterministic Control Words 
in Forth—A 68000 Forth Assembler—GO in Forth—Precompiled Forth 
Modules—Signed Integer Division—Some Forth Coding Standards—The Forth 
Sort. 

#84 Volume VIII, No. 10: 

Unix to CP/M Floppy Disk File Conversion—A Small-C Help Facility—Attaching a 
Winchester Hard Disk to the S-100 Bus—Using Epson Bit-Plot Graphics—8086/88 
Function Macros—Auto Disk Format Selection—CP/M Plus Device Tables. 


#85 Volume VIII, Issue 11: 
A Kernel for the MC6G8000—A DML Parser—Towards a More W/ritable Forth 
Syntax—Simple Graphics for Printer—Floating-Point Benchmarks. 


#86 Volume VIII, Issue 12: 
Faster Circles for Apples—Cursor Control for Dumb Terminals—Dysan’s Digital 


Diagnositic Diskette—Interfacing a Hard Disk Within a CP/M Environment—The 
New MS-DOS EXEC Function. 


#87 Volume IX, Issue 1: 

A Structured Preprocessor for MBASIC—A Simple VW/indow Package—Forth to 
PC-DOS Interface—Sorted Diskette Directory Listing for the IBM PC—Emulate 
WordStar on TOPS-20—More on optimizing compilers—The PIP mystery device 
contest. 


#88 Volume IX, Issue 2: 

Telecommunications Issue: Micro to Mainframe Connection—Communications 
Protocols—Unix to Unix Network Utilities—VPC: A Virtual Personal Computer 
for Networks—PABX and the Personal Computer—BASIC Language Telecommu- 
nications Programming—U:S. Robotics S-100 Card Modem. 


#89 Volume IX, Issue 3: 

RSA: A Public Key Cryptography System, Part |—Introduction to PL/C: Program- 
ming Language for Compilers—Program Design Using Pseudocode—More on 
Binary Magic Numbers—How fast is CP/M Plus?—CP/M 2.2 BIOS Function: 
SELDSK—The results of the Floating-Point benchmark. 


#90 Volume IX, Issue 4: 

Optimizing Strings in C—Expert Systems and the Weather—RSA: A Public Key 
Cryptography System, Part Il—Several items on CP/M Plus, CP/M v2.2 
Compatibility—BDOS Function 10: Vastly Improved—More on MS-DOS EXEC 
Function—Low-Level Input-Output in C. 


#91 Volume IX, Issue 5: 

Introduction to Modula-2 for Pascal Programmers—Converting Fig-Forth to 
Forth-83—Sixth Generation Computers—A New Library for Small-C—Solutions 
to Quirks in dBASE Il. 

#92 Volume IX, Issue 6: 

CP/M on the Commodore 64—aBASE II Programming Techniques—First Chinese 
Forth: A Double-Headed Approach—cc-A Driver for a Small-C Programming 
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Eco-C Compiler 


Release 3.0 


We think Rel. 3.0 of the Eco-C Compiler is the 
fastest full C available for the Z80 environment. 
-Consider the evidence: 


Benchmarks* 
(Seconds) 


Benchmark Q/C 


Times courtesy of Dr. David Clark 
CNC - Could Not Compile 
N/A - Does not support floating point 


We've also expanded the library (120 func- 
tions), the user's manual and compile-time 
Switches (including multiple non-fatal error 
messages). The price is still $250.00 and 
includes Microsoft's MACRO 80. As an option, 
we will Supply Eco-C with the SLR Systems 
assembler - linker - librarian for $295.00 (up to 
six times faster than MACRO 80). 


For additional information, 
call or write: » 


EG (317) 255-6476 


6413 N. College Ave. ® Indianapolis, Indiana 46220 
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IBM PC & XT, 
HP-150, 
Macintosh, 

PN eo) o) (aa | 
CompuPro, 

Sage & CP/M-68K, 
WW ETate PC, 

All CP/M and 

WES) BI @kS Mere} aa) elei(cie-m 


Try the professional language offering 
the utmost performance in the shortest 
development time. Transport your ap- 
(e)|fereh ite) atom of-1wio1-1a m= la lV he) mele] mslalarelaorcre 
83-Standartd compilers or expanded 
32-bit versions. Choose from our wide 
<t~} To) ie] aie) mo) cele) e-tanlanli elem cele) om iaceliere late) 
native code compilers, cross-compilers, 
math coprocessor support, and B-Tree 
file managers. All fully Supported with 
hotline, updates, and newsletters. 


Laboratory Microsystems Incorporated sl 


Phone credit card orders to (213) 306-7412 


Post Office Box 10430, Marina del Rey, CA 90295 iy 
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Pascal and C 


Programmers 


Your programs can 
now compile the 


FirsTime~ 


FirsTime is an intelligent editor that 
knows the rules of the language being 
programmed. It checks your statements 
as you enter them, and if it spots a 
mistake, it identifies it. FirsTime then 
positions the cursor over the error so 
you can correct it easily. FirsTime will 
identify all syntax errors, undefined 
variables, and even statements with 
mismatched variable types. In fact, any 
program developed with the FirsTime 
editor will compile on the first try. 





More than a syntax checker! 


FirsTime has many unique features 
found in no other editor. These powerful 
capabilities include a zoom command 
that allows you to examine the 
structure of your program, automatic 
program formatting, and block 
transforms. 


If you wish, you can work even faster 
by automatically generating program 
structures with a single key-stroke. This 
feature is especially useful to those 
learning a new language, or to those 
who often switch between different 
languages. 


Other Features: Full screen editing, 
horizontal scrolling, function key menus, 
help screens, inserts, deletes, appends, 
searches, and global replacing. 


Programmers enjoy using FirsTime. It 
allows them to concentrate on program 
logic without having to worry about 
coding details. Debugging is reduced 
dramatically, and deadlines are more 
easily met. 


FirsTime for PASCAL $245 
FirsTime for C $295 
Microsoft PASCAL Compiler $245 
Microsoft C Compiler $395 
Demonstration disk $25 


Get an extra $100 off the compiler when 
it is purchased with FirsTime. 
(N.J. residents please add 6% sales tax.) 


Spruce 


Technology Corporation 
110 Whispering Pines Drive 
Lincroft, N.J. 07738 
(201) 741-8188 or (201) 663-0063 


Dealer enquiries welcome. Custom versions 
for computer manufacturers and language 
developers are available. 


FirstTime is a trademark of Spruce Technology 
Corporation. = - 
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IBM Pascal 
























State: lip: 


Referred By: am New Account (Y or N): Ai Auth Code: 


In Basic and Pascal 


It's that easy! The same Screen 
Sculptor package generates programs 
iN IBM Basic, Turbo Pascal, and IBM Pascal. 

Now, anyone can have attractive, intelligent 
input screens and sophisticated data entry 
routines in minutes. 

Move pieces of the screen around, select col- 
ors from a menu, draw lines and boxes, paint, 
repeat last character in any direction. And more! 

Specify variable names, data types, accep- 
table data ranges, pictures for edit checking, etc. 

Screen Sculptor then generates actual pro- 
gram source code based on your screen design. 
Use it as is or modify it. 

Requires an IBM PC, XT, PG, PC AT or 
100% compatible, 128K, DOS, one 320K disk 
drive and any 80 column display. 


ae EO 
30 day norisk demo offer 


Order now and also get our free demo 
disk. Use the demo and the manual for up to 
30 days. If you're still not convinced of Screen 
Sculptor’s power, return the package for a 
full refund! 


ee See Sr 
Credit card orders call 24 hrs/day, 
1 (800) 824-7888, operator 268. 


All other orders and inquiries call or write: Software 
Bottling Co, 29-14 23rd Ave, Long Island City, NY 
11105, (718) 728-2200. *NYS residents add 8.25% 
Sales tax. Item -1130 
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“Despite the recent press notices, 





multiuser microcomputers aren't 





anything new!”’ 


This is the first in a series of 
discussions with Rod Coleman, 
President of Stride Micro 
(formerly Sage Computer) on 
the 68000 multiuser market 
and its current environment. 


Q: Why do you say that? 

RC: ‘‘The technology to build a 
high performance multiuser sys- 
tem has been around for five 
years. And while some of the 
leaders in this industry have been 
pretending that micro multiuser 
didn’t exist, we’ve been shipping 
complete systems for nearly three 
years. The benefits of multiuser 
are undeniable; it is more cost ef- 
fective, and offers greater flexibil- 
ity and utility. But until just re- 
cently, the marketing pressure to 
be compatible instead of being 
better, has blinded the industry.”’ 
Q: What do you mean? 

RC: ‘‘Well, for example, the 
Motorola 68000 processor intro- 
duced 16/32-bit technology to the 
personal computer world a long 
time ago. It was fully capable of 





“A surprising feature is 
compatibility. Everybody 
talks about it, but nobody 
does anything about it.”’ 


meeting high performance and 
multiuser design requirements in 
1980. Instead of this trend taking 
off, most energy was spent pro- 
moting 8088/8086 products that 


were clearly inferior from a tech- 
nical point of view. This phenom- 
enon leads me to believe that they 
will soon rewrite the old proverb: 
‘Build a better mousetrap and the 
world will beat a path to your 
door,’ but only if they can find the 
way through the marketing fog.’’ 
Q: Are things changing now? 
RC: ‘‘Yes and no. With the busi- 
ness world starting to take more 
and more interest in microcompu- 
ter solutions, the advantages of a 
solid multiuser system couldn’t be 
kept hidden forever; companies 
like ours and a few others were 
beginning to make a dent. Instead 
of taking a fresh approach, some 
of the newest multiuser offerings 
will probably only give the tech- 
nology an undeserved black eye! 
Multiuser is far more than the 
ability to plug in more terminals. 
It involves things like machine 
compatibility, fast processors, 
adequate memory, large storage 
capacities, backup features, net- 
working, and operating system 
flexibility.”’ 
Q: Is this what makes the new 
Stride 400 Series different? 
RC: ‘‘Exactly. That sounds self- 
serving, but it’s true. Today a 
number of companies are intro- 
ducing their first multiuser sys- 
tem. We’ve been building and 
shipping multiuser machines for 
almost three years. We know the 
pitfalls, we’ ve fallen into some of 
them. But we have learned from 
our mistakes.’’ 
Q: Give me some examples. 
RC: A hard disk is almost manda- 
tory for any large multiuser in- 
stallation. Yet, backing up a hard 
disk can be a nightmare if you 
only have floppies to work with. 
That’s why we’ve added a tape 
backup option to all the larger 
tride 400 Series machines. It’s 
irresponsible for a manufacturer 
to market a multiuser system 
without such backup. Another 
good lesson was bus design. We 
started with one of our own de- 
signs, but learned ihat it’s impor- 
tant not only to find a bus that is 
powerful, but also one that has 
good support and a strong future 
to serve tomorrow’s needs. We 





“The marketing pressure 
to be compatible 
instead of being better, 
has blinded the industry.”’ 


think the VMEbus is the only de- 
sign that meets both criteria and 
thus have made it a standard fea- 
ture of every Stride 400 Series 
machine.”’ 

Q: What are some of the other 
unique features of the 400 Series? 


RC: ‘‘A surprising feature is com- 
patibility. Everybody talks about 
it, but nobody does anything 
about it. Our systems are com- 
pletely compatible with each other 
from the 420 model starting at 
$2900, through the 440, on to the 
powertul 460 which tops out near 
$60,000. Each system can talk to » 


the others via the standard built-in 


local area network. Go ahead and 
compare this with others in the in- 
dustry. You'll find their little ma- 
chines don’t talk to their big ones, 
or that the networking and multi- 
user are incompatible, or that they 
have different processors or 
operating systems, and so on.”’ 


Q: When you were still known as 
Sage Computer, you had a reputa- 
tion for performance, is that still 
the case with the new Stride 400 
Series? 

RG: ‘Certainly, that’s our calling 
card: ‘Performance By Design.’ 
Our new systems are actually fas- 
ter; our standard processor is a 10 
MHz 68000 running with no wait 
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states. That gives us a 25% in- 
crease over the Sage models. 
And, we have a 12 MHz pro- 
cessor as an option. Let me add 
that speed isn’t the only way to 
judge performance. I think it is 
also measured in our flexibility. 
We support a dozen different 
operating systems, not just one. 
And our systems service a wide 
variety of applications from the 
garage software developer to the 
corporate consumer running high 
volume business applications.”’ 


Q: Isn’t that the same thing all 
manufacturers say in their ads? 


> | RC: ‘Sure it is. But to use another 


over used-term, ‘shop around’. 
We like to think of our systems as 
‘full service 68000 supermicro- 
computers.’ Take a look at every- 
one else’s literature and then 
compare. When you examine 
cost, performance, flexibility, and 
utility, we don’t think there’s any- 
one else in the 

race. Maybe Z 
that’s why we've ~ 
shipped and 
installed more 
multiuser 68000 
systems than 
anyone else.”’ 
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CET Oe 


REE SE 
Formerly Sage Computer 


For more information on Stride or 
the location of the nearest Stride 
Dealer call or write us today. 
We’ll also send you a free copy of 
our 32 page product catalog. 


Corporate Offices: 


4905 Energy Way 
Reno, NV 89502 
(702) 322-6868 


Regional Offices: 


Boston: (617) 229-6868 
Dallas: (214) 392-7070 


CP/M Exchange 
Listing Three 


(Listing Continued, text begins on page 98) 


LHLD BUFFER ; PT TO BUFFER ADDRESS 
INX H ; SKIP BLOCK COUNT 
LDA EOF , SET EOF FLAG 
MOV M,A 
XCHG 
LHLD BYTECNT ; SET BYTE COUNT 
XCHG 
INX H 
MOV M,E ,; PUT LOW COUNT 
INX H 
MOV M,D 
XCHG 
LHLD BYTENXT SET NEXT BYTE PTR 
XCHG 
INX H 
MOV M,E ; PUT LOW COUNT 
INX H 
MOV M,D 
RET 
; 
; BUFFERS 
, 
BYTE: DS 1 ,; INPUT BYTE 
BUFFER: DS 2 ; STARTING ADDRESS OF I/O CONTROL BLOCK 


=e "6¢ @O 


BCNT: DS 1 

EOF: DS 1 

BYTECNT: DS 2 

BYTENXT: DS 2 

BUFADR: DS 2 

FCB: DS £ 
END 


=e Se Se Se Se Se 


THE FOLLOWING MIRRORS THE STRUCTURE OF THE I/O CONTROL BLOCK 


NUMBER OF BLOCKS 

EOF FLAG (@=NOT AT EOF, 
NUMBER OF BYTES TO GO YET 
ADDRESS OF NEXT BYTE TO PUT/GET 
ADDRESS OF WORKING BUFFER 
ADDRESS OF FCB 


O@FFH=AT EOF) 


End Listings 





68000 Cross Assembler 
Motorola VERSAdos + Compatible 


Assembler, Linker, Object and Macro Librarian. 


Absolute and Relocatable Code, Macros, In- 


cludes, and Conditional Assembly. Structured 
Programming. No limit on source file size. 


Unix (C) Compatible Source 
$700 


PC/DOSt CP/M-86* 
$250 $250 


Manual: $20 
(refundable) 


CP/M-80* 
$200 


> farbware 


(312) 251-5310 
after 5 p.m. 


1329 Gregory 
Wilmette, IL 60091 


* Digital Research trademark. TIBM trademark. + Motorola trademark 
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A general purpose programming 
language for string and list 
processing and all forms of 

non-numerical computation. 


SNOBOL4+ —the entire 


SNOBOL4 language with its superb pattern-matching 


facilities * Strings over 32,000 bytes in length ® Integer 
and floating point using 8087 or supplied emulator on 
¢ ASCII, binary, sequential, and random- el 2 


access I/O * Assembly Language inter- re 

face * Compile new code during A* bd 
program execution ® Create a WV wee 
SAVE files © Program 0 80: or? 

and data space up we With 
to aig bytes 6 o 


ELIZA & over 
RA oS 2) 100 sample pro- 
oo grams and functions 
~ 
0 ne 
e 7 * For all 8086/88 PC’ MS-DOS or 
eh cP M-86 systems, 128K minimum 
Ne 5" DSDD, specify DOS’CPM format 
‘ 
2 
aid Send check, VISA, M/C to: $95 
" Catspaw, Inc. pus 3s 


P.O. Box 1123 ® Salida, CO 81201 © 303/539-3884 
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BIG DISCOUNTS 
ON LITTLE BOARDS ™ 
& ACCESSORIES 


e@ AMPRO LITTLE BOARD'” -64K, Z80a CPU. CTC. 
DART, 1 parallel port, 5% controller supports four 
48tpi and/or 96tpi drives w’ CP/M 2.2 and ZCPR3 
(A & T) from $329 

e SYSTEM SUPPORT PKG-—Manuals. source code 
schematics, connectors & cables 

e@ SCSI PLUS—DMA Hard disk interface 

e@ TEAC 55B DSDD 48tpi 2 ht drive 

@ TEAC 55F DSDD 96tpi % ht drive 

e INTEGRAND Custom two drive cabinet with 5 amp 
power supply & power cables $199 

e@ TERM-MATE-Cabinet for 2’ ht + LITTLE BOARD 
w/ all cables & supply $229 

e@ AMPRO SERIES 100 complete systems... $CALL 

VISA & MASTER CHARGE. personal checks 

Please allow 2 weeks. Shipped via UPS 

Prices F.0.B. Prairie View. IL 

For additional information write or call: DISKS PLUS, 

15945 West Pope Blvd., Prairie View, IL 60069 

(312) 537-7888 


SOLARONICS ' 
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Diana, An Intermediate Lan- 
guage for Ada 
Edited by G. Goos, W. A. Wulf, 

A. Evans Jr., and K. J. Butler 
Published by Springer-Verlag 
$11.00, 201 pages 
Reviewed by John R. Johnson 


Most computer language compilers in 
recent years have used a concept called 
“common back end” in their implemen- 
tation. We normally think of a compiler 
as a program that accepts a file of state- 
ments in some language as input and 
provides as output a file of machine lan- 
guage codes that will implement the in- 
tent of the input file on a specific com- 
puter. Many compilers were created in 
just this way. However, significant ad- 
vantages can be gained by writing com- 
pilers for higher-level languages to pro- 
vide their output in a more generic 
lower-level language for easy imple- 
mentation on a variety of machines. 
The two major advantages to this ap- 
proach are portability and flexibility. 

Portability can be gained by using a 
low-level language as an intermediate 
or “common back end” language. My 
high-level compiler itself, which repre- 
sents a serious programming effort, 
can be written in a high-level language 
or even in the intermediate language it 
produces. This simple intermediate 
language then can be implemented on 
a variety of machines to create a fam- 
ily of high-level compilers for many 
different computers. A large part of 
the work of high-level language imple- 
mentation has to be done only once. A 
good example of this approach is the p- 
code intermediate language used in a 
number of implementations of the Pas- 
cal language. 

Flexibility is gained by using the 
same intermediate language for a 
number of different high-level lan- 
guage compilers. It becomes a relative- 
ly easy task to combine modules or 
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routines written in different source 
languages into one program. A good 
example of this is the Microsoft family 
of high-level language compilers: they 
all compile to a common relocatable 
assembly language, and the modules 
are linked with a common linker/load- 
er to produce executable code. 

To make use of this powerful tech- 
nique, you need an intermediate lan- 
guage that is both easily implemented 
and capable of supporting all of the 
constructs of the high-level language. 
Because Ada contains a number of fea- 
tures in its specification that are 
straight from computer science re- 
search projects, a suitable intermedi- 
ate language for Ada did not exist. 

Diana, An Intermediate Language 
for Ada not only documents such a 
language, but it provides an intermedi- 
ate language usable for virtually any 
modern high-level language such as 
Modula II or Pascal. The book is in- 
tended as both an introduction to Di- 
ana and a language reference manual 
for Diana. 

This book is part of a larger series, 
“Lecture Notes in Computer Science,”’ 
published by Springer-Verlag. The 
books in this series that I have seen are 
intended primarily for graduate stu- 
dents in computer science. This book is 
not an exception. 

It is aclear and concise definition and 
description of a language that is a pow- 
erful tool in modern high-level compiler 
construction. That the book is obviously 
written for experienced compiler writ- 
ers is not a criticism: by its nature, it 
would be of only limited usefulness to 
anyone not currently engaged in de- 
signing a high-level language compiler. 

The book is well conceived and pre- 
sented, and I would suggest that any- 
one considering writing a compiler for 
the Ada language buy it. It should also 
be in the library of any modern sys- 
tems programmer. If your program- 


ming interests do not extend to compil- 
er design, however, Diana would most 
likely fail to repay the considerable ef- 
fort required to read and understand it. 


Ada, An Advanced 
Introduction Including 
Reference Manual for the 
Ada Programming Language 
by Narain Gehani 

Published by Prentice-Hall, Inc. 
$19.95, 291 pages 

Reviewed by John R. Johnson 


The Ada programming language has 
stirred up a great deal of interest and 
controversy in recent years. As a re- 
sult, many books have appeared on the 
market to expand upon Ada. This is 
the best one I have seen. 

The book is written for the experi- 
enced programmer, preferably some- 
one who has had some exposure to one 
of the ALGOL-derived languages such 
as Pascal or PL/I. Gehani assumes the 
reader is familiar with standard pro- 
gramming concepts such as type defi- 
nitions and control structures. 

The first portion of the book is de- 
voted to a thorough but brief descrip- 
tion of the correct Ada syntax and 
form for all programming constructs 
not unique to Ada. Gehani covers the 
Ada character set, type and function 
declarations, and subtypes with ranges 
and limits. The definitions are written 
in the concise format normally used for 
language specification and documen- 
tation. Any experienced programmer 
should have no difficulty following the 
material. Gehani has illustrated each 
situation with several examples of cor- 
rect Ada code. 

He then spends the bulk of the book 
thoroughly discussing several features 
of Ada that are shared with few, if any, 
common languages. There is an excel- 
lent discussion of the Ada “package” 
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concept for information hiding and 
data encapsulation; this is the basic fa- 
cility or modularity in Ada programs. 
The contents of any “package” may be 
altered at will as long as the imports 
and exports from the package remain 
consistent with the package specifica- 
tion. Ada provides for separate compil- 
ation of packages. Gehani uses many 
examples to illustrate the specific syn- 
tax associated with the concept. 

One of Ada’s unusual features is the 
provision for concurrency of portions 
of a program. The author has given us 
a clear and concise look at the prob- 
lems of concurrency. Ada has a num- 
ber of features to provide coroutines, 
concurrent actions, and data passing 
between independent concurrent tasks 
and procedures within a program. 
Once again we have numerous exam- 
ples to show how to handle handshak- 
ing between asynchronous indepen- 
dent processes using correct Ada 
syntax. 

Ada provides a unique and complete 
system for exception handling within 
programs. Specific exception handling 
routines may be added at the end of 
any block to process any exceptions 
that may arise anywhere in the block. 
When an exception occurs, control is 
transferred to the exception handler. 
When the exception handler is fin- 
ished, the block where the exception 
handler resides is terminated and con- 
trol passes back to the enclosing block. 
If the exception handler is omitted, 
control passes back to the exception 
handler in the enclosing block. This 
concept is presented clearly with some 
excellent examples. 

The generic facilities of Ada are an 
interesting variant of the standard 
function library concept used in C and 
other separate-module compilation lan- 
guages. A generic package may be “‘in- 
stantiated” by a declaration in a new 
package with appropriate parameters; 
the result is a unique and specific appli- 
cation of a generic package, such as a 
sort routine. This unusual approach is 
presented with some useful examples. 

The balance of the first part of the 
book is devoted to a discussion of the 
separate compilation features and 
those features that may be implemen- 
tation-dependent. Here, also, Gehani 
has used precise examples. 

For all of the examples in the book, 
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the author has used stepwise refine- 
ment to work from a general problem 
statement to a set of specific routines 
that implement the solution in Ada. It 
is interesting to follow the refinement 
process: all of the steps are included. 
The book would be worth buying just to 
trace this stepwise refinement process. 

The second half of the book is the 
complete reference manual for the Ada 
programming language—reprinted 
from the ANSI/MIL-STD-1815 A. This 
is the current official definition of the 
Ada language. Considerably less read- 
able than the first part of the book, it is 
indispensable for anyone who wishes to 
attempt an implementation of the Ada 
language. 

The book includes a comprehensive 
bibliography for anyone interested in 
additional reading on the topics cov- 
ered. The two halves of the book are 
indexed separately for reference pur- 
poses. The indexing is well done. 

This book will quickly become dog- 


eared on the desk of any programmer 
working in the Ada language. When we 
are forced to begin using Ada in our 
shop, I am going to insist that every 
programmer be provided with his or her 
own copy. It is an essential tool for the 
new or experienced Ada programmer. 


New Books 


Hackers 

Steven Levy 

Anchor Press/Doubleday, Garden 
City, New York, 1984 

$17.95, 458 pages 

ISBN 0-385-19195-2 

Steven Levy has taken on the exegesis 

of the Hacker Ethic. In breathless, 

Right Stuff prose, he follows the fol- 

lowers of the hacking dream from the 

basements of MIT through the garages 

of Silicon Valley right up the slopes of 

the Sierra, where game programmers 

are treated like rock stars. Steven, did 

you retain the film rights? 









[ ] Only $150. 





“Ouvrez les 
jenetres! 


Introducing MATIS, the powerful new 
developmental system from France. 
A complete and meticulously detailed program 
to make a programmer's work easier, faster, and... 
but of course... better. 


|_] Window Management Systems 1] Screen Generator 0 Expanded 
Basic Commands [] Can be accessed from other languages [] 100% 
Assembler [] Automatic Scrolling in Windows ( Virtual Page larger 
than screen (up to 65534 rows x 65534 columns) CJ Save or Print 
Pages L] MS-DOS [J 170 Page Manual (In English Mon Ami!) 


ORDER BY MAIL—WRITE OR CALL FOR COMPLETE DESCRIPTION 
No license fee. 


Softway, Inc. 


900 Sutter Street » Suite 222— 2B + San Francisco, CA 94102 
Tel: (415) 397-4666 Telex: 880857 


*“Open the windows! 
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How to Copyright Software 

M.J. Salone 

Nolo Press, Berkeley, California, 
1984 

$21.95, 256 pages 

ISBN 0-917316-7 

It is perhaps only to be expected that a 

256-page book explaining how to copy- 

right software would cost more than 

twice as much as a 475-page book tell- 

ing how to get it free. 


The Free Software Catalog 
and Directory 

Robert A. Froehlich 

Crown Publishers, Inc., New York, 
































possible! 


If you’re a C language 
programmer whose patience is 


your valuable time programming 
instead of twiddling your thumbs 
waiting for slow compilers, who 
just wants to work fast, then it’s 


BDS C features include: 


e Ultra-fast compilation, linkage and 
execution that produce directly 


executable 8080/Z80 CP/M command source code. 
files. 
e A comprehensive debugger that Plus... 


traces program execution and 
interactively displays both local and 
external variables by name and 
proper type. 

Dynamic overlays that allow for run- 
time segmentation of programs too 
large to fit into memory. 


Reviewers everywhere have 
praised BDS C for its elegant 
operation and optimal use of 
CP/M resources. Above all, BDS C 
has been hailed for it’s remarkable 
speed. 


BYTE Magazine placed BDS 
C ahead of all other 8080/Z80 C 
compilers tested for fastest 
object-code execution with all 
available speed-up options in use. 
In addition, BDS C’s speed of 
compilation was almost twice as 


CP/M-80 C Programmers ... 


Save time 


_.. with the BDS C Compiler. Compile, link 
and execute faster than you ever thought 


wearing thin, who wants to spend 


i 


* A 120-function library written in both ¢ An attractive selection of sample 
C and assembly language with full 


e A thorough, easy-to-read, 181-page 
user’s manual complete with 
tutorials, hints, error messages and 
an easy-to-use index — it’s the 
perfect manual for the beginner and 
the seasoned professional. 


a 


fast as its closet competitor 
(benchmark for this test was the 
Sieve of Eratosthenes). 


“IT recommend both the 
language and the implementation 
by BDS very highly.” 

Tim Pugh, Jr. 

in Infoworld 
“Performance: Excellent. 
Documentation: Excellent. 
Ease of Use: Excellent.” 

InfoWorld 

Sottware Report Card 

“a superior buy...” 

Van Court Hare 

in Lifelines/The Software 

Magazine 


New York, 1984 
$9.95, 475 pages 
ISBN 0-517-55448-8 
Cross-referenced directories for the 
CPMUG and ACJ-NJ’s SIG/M public 
domain software libraries, plus lists of 
bulletin boards and users’ groups 
throughout the U.S. 


Digital Deli 

Steve Ditlea, Ed. 

Workman Publishing Co., New York, 
New York, 1984 

$12.95, 382 pages 

ISBN 0-89480-591-6 

No way to summarize this book; it con- 





time you programmed with the 
BDS C Compiler. 

BDS C is designed for 
CP/M-80 and provides users with 
quick, clean software 
development with emphasis on 
systems programming. 


programs, including MODEM- 
compatible telecommunications, 
CP/M system utilities, games and 
more. 


e A nationwide BDS C User’s Group 
($10 membership fee — application 
included with package) that offers a 
newsletter, BDS C updates and 
access to public domain C utilities. 






Don’t waste another minute on 
a slow language processor. Order 
your BDS C Compiler today! 


Complete Package (two 8” SSDD disks, 

181-page manual): $150 

Free shipping on prepaid orders inside 
SA 


VISA/MC, COD’s, rush orders accepted. 
Call for information on other disk 
formats. 


BDS C is designed for use with CP/M-80 
operating systems, version 2.2. or higher. It is 
not currently available for CP/M-86 or MS- 
DOS. 


BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 
(617) 576-3828 
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tains a short piece (all the pieces in this 
book are short) on how to use a word 
processor, a quarter-page PR photo of 
IBM CEO John Opel, arguments for 
the Eniac being an Aquarius and for 
the Mac being short skis for the mind, 
cartoons, computer art, quizzes, and 
memoirs. The title is not original, but 
it fits. 


The Netweaver's 

Sourcebook 

Dean Gengle 

Addison-Wesley Publishing Compa- 
ny, Menlo Park, California, 1984 

$14.95, 326 pages 

ISBN 0-201 -05208-3 

How refreshing to hear that “it’s still 

perfectly socially acceptable to hate 

machines arbitrarily and capriciously, 

especially answering machines.” This 

book takes a remarkably elevated per- 

spective on networks and communica- 

tions. 


The Whole Earth Software 

Catalog 

Stewart Brand, Ed. 

Quantum Press/Doubleday, Garden 
City, New York, 1984 

$17.50, 208 pages 

ISBN 0-385-19166-9 

The Brand hand is as evident here as in 

Whole Earth non-software catalogs, 

and admirers of wit, irreverence, con- 

troversy, and—um, wholearthness will 

be glad of that. Dr. Dobb contributed 

to this collection of recommended 

programs. 


Up and Running 

Charles Sherman 

Ashton-Tate, Culver City, California, 
1984 

$15.95, 312 pages 

ISBN 0-912677-14-7 

A collection of raw interviews with 

software magnates Kildall, Gates, Ka- 

por, and others, plus David Cole on 

“Guerilla Management.” Sherman 

doesn’t concentrate just on convention- 

al marketeers; there are interviews 

here with shareware entrepreneurs, 

too. No index, unfortunately. 


DD} 
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Save millions of dollars 
with Six-Shooters 








Last year 430 million business slides were made at a cost of $3.2 billion. 


Most of these slides were manually generated.* 
These slides could have been made on Sweet-P® 
Six-Shooter Personal Plotters™. Faster and better. With 


savings of millions of $! 


Save Money and Manage Better. 

Use your office computer and 
Six-Shooter Personal Plotter to 
create and plot finished charts in 6 
colors in 5 to 15 minutes. Save $5.00 
to $100.00 per chart. 


Save more money. Use your charts 
to: 
e Reduce meeting times 28%** 
e Get fast favorable decisions** 
¢ Get your report read. ‘‘One 
Sweet-P picture is wortha 
thousand print-outs’’. 


Don't settle for old-fashioned, 
slow plotters. With office costs 
running $10.00 to $20.00/hr,, 
Six-Shooter performance saves a 
bundle. Best of all, Six-Shooter 


Six-Shooter Standard interfaces: parallel, 
and serial with evesdropping: 


Plotter 


nese 


Eavesdrops Mode 


Serial Interface 


Computer Terminal 


Source notes: *Yankee Group, The Technical Office, Vol. III 1983 
**Wharton School Study, September 1981 





performance and quality | 


costs less—up to 45% less 
than other plotters in its 


class 
® 
isa 


high quality American made | 
precision machine. It’s fast. It plots 
14 inches per second. It’s beautiful 
for office and technical work. Plot 
perfect A-size slides for business 
presentations. Or big B-size block 


diagrams. Every office, every Quality 


and Production Manager and every 
Engineer should have one. 

Over 100 graphics software 
packages drive the Six-Shooter— 
world famous packages like Lotus 
1-2-3™ and ISSCO™, Tel-A-Graf™ and 
Disspla™. 

The Six-Shooter holds six pens. 
Pens are changed automatically. 
Pens are capped automatically when 
not in use, so that pens last longer and 
start quicker. 

The Six-Shooter easily connects to 
almost any computer. It has RS-232 








serial and Centronics parallel 
connectors. And it supports two 
standard graphics languages— 
Sweet-P Graphics Language 
(SPGL™) and Hewlett-Packard 
Graphics Language (HPGL”™). 

The Six-Shooter plots on almost 
any media. Make brilliant overhead 
transparencies. Plot on film, and on 
plain and coated papers. 

Save on wiring costs too. The Six- 
Shooter will ‘‘eavesdrop”’ on the 
RS-232 cables that connect your 
terminals now. (This makes it easy 
for Six-Shooters to join local and 
long distance networks.) 


What about support? Six-Shooter 
customers get fast professional help 
with software, hardware and 
interface questions. And warranty 
and service support is quick. If we 
ever have to fix your plotter, we'll 
repair it in less than a week (usually 
2 or 3 days). 


only $1,095 


(prices subject to change) 


Our toll-free telephone numbers 
are: 800/227-4375, in California 
call: 800/227-437i, Telex: 181740 
Enter Computer Inc. 


6867 Nancy Ridge Drive 
San Diego, CA 92121 





Sweet-P, Six-Shooter, Personal Plotter and SPGL are trademarks of Enter 
Computer, Inc. Lotus 1-2-3 is a trademark of Lotus Development, Inc. Tel-A- 
Graf, Disspla and ISSCO are trademarks of Integrated Software System 

Corporation, HPGL is a trademark of Hewlett-Packard, Inc. 
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OF INTEREST 





by R.P. Sutherland 





Disk Memory 


The notion of having the Library of 
Congress in the palm of your hand 1s 
coming closer to reality every day. A 
434-inch compact disk ROM with 550 
megabytes of storage capacity on one 
side has been developed by Nippon 
Columbia of Kawasaki, Japan. Con- 
tact Robert Heiblim, Denon America, 
Inc., 27 Law Drive, Fairfield, NJ 
07006 (201 ) 575-7810 Reader Service 
No. 111. 

Hewlett-Packard has entered the 
OEM market with a 32-inch 10 mega- 
byte disk drive. The HP 97501A 3/- 
inch micro- Winchester is priced at 
$400.00 each in quantities of 10,000. 
For more information, write: Inquiries 
Manager, Hewlett-Packard Compa- 
ny, 1020 N.E. Circle Boulevard, Cor- 
vallis, OR 97330 Reader Service No. 113. 

A diagnostic diskette for the IBM 
PC, Apple II, TRS-80, and Commo- 
dore 64 is available from Dymek Cor- 
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poration. The disk is called RID (Re- 
cording Interchange Diagnostic), and 
it performs seven tests on disk drives: 
drive speed, radial position, hysteresis, 
write function, erase crosstalk, mini- 
mum signal-to-noise, and clamping. 
The disk is easy to use, costs $34.95, 
and is available from Dymek Corpora- 
tion, 1851 Zanker Road, San Jose, CA 
95112 (408 ) 947-8700 Reader Service 
No. 115. 


Utilities 


A high-resolution graphics system for 
Turbo Pascal has been released by 
Borland International. Turbo Graphix 
Toolbox provides procedures to create 
the contents of windows and to allow 
copying from window to window as 
well as scrolling of windows horizon- 
tally and vertically. There are also 
procedures that provide RAM storage 
of screen images and so permit anima- 








tion in real time application, up to 500 
images per second. (See photo below. ) 
Turbo Graphix Toolbox comes with 
complete commented source code on 
disk for $49.95 from Borland Interna- 
tional, 4113 Scotts Valley Drive, 
Scotts Valley, CA 95066 (408) 438- 
8400 Reader Service No. 123. 

Stellation Two has disk buffering 
software for the IBM PC. Invisible 
Optimizer loads automatically in the 
unused memory space of any expan- 
sion board for the IBM PC. It works by 
keeping track of all disk activity and 
copying the most needed data into 
system memory. Applications then ob- 
tain the most needed data from RAM 
instead of from the disk drive. Invisible 
Optimizer is available for $69.00 from 
Stellation Two Inc., 26 W. Mission St., 
P.O. Box 2342, Santa Barbara, CA 
93120 (805) 569-3132 Reader Service 
No. 125. 





68000 Development 


PC-68K is a new product from Lan- 
guage Resources that allows 68000 
development on an IBM PC-XT or PC- 
AT. PC-68K provides a symbolic de- 
bugger, linker /locator, Motorola com- 
patible macro assembler, and an IEEE 
floating point package. Pascal and C 
compilers are available as options. 
The PC-68K plug-in board has an 8 
MHz 68000 CPU, a memory manage- 
ment subsystem, and 256K of RAM 
for 68000 family development, which 
can also be used as expansion memory 
by PCDOS programs. The basic PC- 
68K package costs $2995.00. Lan- 
guage Resources Inc., 4885 Riverbend 
Road, Boulder, CO 80301 (303) 449- 
8087 Reader Service No. 119. 

A Modula-2 development system 
for the Pinnacle microcomputer has 
been introduced. Interesting details 
include a Modula-2 native code com- 
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piler and a 12 MHz 68000. The pack- 
age is available for $3995.00 from 
Pinnacle Systems, 10410 Markison 
Road, Dallas, TX 75238 (214) 340- 
4941 Reader Service No. 121. 





2010 


Arthur C. Clarke’s 200]: A Space 
Odyssey was written, filmed, and pub- 
lished before 1969, when Neil Arm- 
strong took that giant leap. In the 
preface to 2010: Odyssey Two, in ref- 
erence to 200], Clarke mentions “‘un- 
canny instances of nature imitating 
art.” In 2001, the novel, the spaceship 
Discovery “slingshots” its way by Ju- 
piter to reach the Saturnian moons. 
The Voyager space probes in 1979 
used the same technique. When Stan- 





ley Kubrick set the third confronta- 
tion between Man and Monolith 
among the moons of Jupiter, Io, Euro- 
pa, Ganymede, and Callisto were just 
points of light in our telescopes. The 
discoveries of the Voyagers have since 
allowed us to gaze upon the surfaces 
of these fantastic moons. The astro- 
nauts of Apollo 8 had already seen the 
film when, in 1968, they became the 
first men to see the other side of the 
moon. They were tempted to report 
the discovery of a large black mono- 
lith! More recently, the crew of Sky- 
lab televised their discovery that they 





Arthur C. Clarke, one of the world’s best known and most respected authors of science 
fiction and science fact literature, poses before one of the Kaypro II computers used to 
relay information between the production office and Clarke’s Sri Lanka home. 
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could run around the interior in much 
the same way in which Frank Poole, 
in the film, runs around the circular 
track of the giant centrifuge. 

Pasadena’s Jet Propulsion Labora- 
tory (JPL) claims that the vision of 
Jupiter in the film 20/0 is better than 
its own. The visual effects supervisor 
fed the raw JPL data from the Voyag- 
er fly-by mission into a Cray. The 
Voyager data, processed and correlat- 
ed with information about cloud vor- 
texes, produced a detailed moving im- 
age of Jupiter. 

I look forward to viewing the resur- 
rection of HAL. (By the way, in the 
novel there is a character who flatly 
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denies the correspondence of HAL to 
IBM.) One Hitchcockian detail: Ar- 
thur Clarke appears as a pigeon-feed- 
ing wino on a park bench outside the 
White House. 


Telecommunications 


What do you need 2400 baud for? 
Well, Arthur Clarke could have 
halved his telephone bills across thir- 
teen and a half time zones when he 
sent his film script drafts from Sri 
Lanka to his screenplay writer in the 
United States. Both Hayes and US. 
Robotics have introduced 2400 baud 
modems. The Hayes costs $899.00 
and the U.S. Robotics costs $895.00. 
Hayes is at 5923 Peachtree Industrial 
Blvd., Norcross, GA 30092 Reader Ser- 
vice No. 101, and U.S. Robotics is at 
1123 W. Washington Blvd., Chicago, 
IL 60607 Reader Service No. 103. Where 
do we go from here—9600 baud? 

If you can’t justify $900.00 for a 
2400 baud modem, consider what 
$200.00 will do. Business Computer 
Network is offering a 1200 baud mo- 
dem with SuperScout software for 
$200.00. Business Computer Network, 
Inc., is located at 1000 College View 
Drive, Riverton, WY 82501 (800) 446- 
6255 Reader Service No. 105. In the same 
spirit, Artisoft Inc. has introduced 
communications software for $49.95. 
Envoy is a menu-driven telecommuni- 
cations program with autodial capabil- 
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ities and XMODEM transfer protocols. 
Contact Artisoft, Inc., RO. Box 
41436, Tucson, AZ 85717 (602) 327- 
4305 Reader Service No. 107. 

A newly patented device called 
Shuttle Communicator allows users to 
download software from an AM or FM 
station with a radio interfaced to the 
computer! Shuttle Communicator costs 
$70.00. (See photo below.) For addi- 
tional information, contact Robert 
Hardwick, The Microperipheral Cor- 
poration, 2565 152nd Ave. N.E., Red- 
mond, WA 98052 (206) 881-7544 
Reader Service No. 109. 


Miscellany 


Stars and Planets on the Apple Il 
The Observatory is a program that 
turns your Apple II into an electronic 
celestial sphere containing stars, star 
clusters, galaxies, and nebulae. Hal- 
ley’s Comet and all of the planets are 
included. Users have available nine 
levels of magnification. The author, 
Gary Lassiter, claims that the pro- 
gram is accurate for any place on the 
earth for any moment of time in a 
10,000 year span. The Observatory 
sells for $125.00 from Lightspeed 
Software, 2124 Kittredge, Suite 185, 
Berkeley, CA 94704 (415) 486-1165 


Reader Service No. 127. 





Macintosh Disk Backup 
COPY II MAC makes backups of pro- 





tected Macintosh software. The pack- 
age includes utilities to lock/unlock, 
protect /unprotect, and make files visi- 
ble/invisible. COPY II MAC is avail- 
able for $39.95 from Central Point 
Software, Inc., 9700 SW Capitol 
Highway, Suite 100, Portland, OR 
97219 (503) 244-5782 Reader Service 
No. 129. 


Micromouse Contest 

For those who think that they can 
build a small self-contained robot able 
to navigate quickly a complicated 
maze, a contest will be held by the 
IEEE Computer Society at the Micro- 
processor Forum. The Microprocessor 
Forum will be held March 31 to April 
4, 1985, at Bally’s Park Place Hotel, 
Atlantic City, NJ. The Micromouse 
Contest aims to find a robot able to 
negotiate a maze in the shortest peri- 
od of time. The robot cannot use an 
energy source employing a combus- 
tion engine, cannot leave part of its 
body behind while running the maze, 
cannot jump over, climb, scratch, 
damage, or destroy the walls that 
constitute the maze, and cannot be 
longer or wider than 25 cm. It also 
cannot be controlled by radio or wire. 
A microcomputer must be incorporat- 
ed into the design to control the sen- 
sors and drive motors, to memorize 
the progress of the mouse through the 
maze, and to calculate the shortest 
path to the destination. For more in- 
formation about the contest, write to: 
Micromouse Contest, IEEE Computer 
Society, P.O. Box 639, Silver Spring, 
MD 20901. 


Micro Cornucopia Gets Sol Libes 
This month, Sol Libes, founder of 
Microsystems, will begin a regular 
column in Micro Cornucopia. The 
column will cover the latest public 
domain software releases. Micro Cor- 
nucopia is the “Single Board Systems 
Journal” that supports the Kaypro, 
the Xerox 820, and the Big Boards. 
Micro Cornucopia is located at P.O. 
Box 223; Bend, OR 97709 Reader Ser- 
vice No. 131. 


Printer Pedestal 

Zavie Enterprises has a desktop print- 
er stand of a useful design. The Print- 
er Pedestal comes in dark brown and 
is made of 44-inch metal rods arc- 
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welded together. It can support over a 
hundred pounds. The 80 column 
width costs $19.95 and the 132 col- 
umn width costs $24.95. Contact Za- 
vie Sokoloff, 484 Lakepark Avenue, 
Suite 186, Oakland, CA 94610 (415) 
531-0302 Reader Service No. 133. 





BASIC 


Morgan Computing Company has re- 
leased version two of Professional BA- 
SIC and lowered the price from 
$345.00 to $99.00. Professional BA- 
SIC requires an IBM PC or AT. The 
new version includes windows into 
program execution and provides mem- 
ory access of 640K. A $49.00 en- 
hancement package provides 8087 and 
80287 support. Contact Morgan 
Computing Company at 10400 N. 
Central Expressway, Suite 210, Dal- 
las, TX 75231 (214) 739-5895 Reader 


Service No. 117. DD] 
Reader Ballot 
Vote tor your favorite feature/article. 
Circle Reader Service No. 198. 
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WIZARO C 


Fast compiles, fast code and great diagnostics 
make Wizard C unbeatable on MSDOS. Discover 
the powers of Wizard C: 





-_ 
| 


To C You Thru. 


Now the Ward Ware’ 
Applications Programmers Toolkit | 
provides everything you need | ALL UNIX SYSTEM IIl LANGUAGE FEATURES. 


to increase your C programming productivity. UP TO A MEGABYTE OF CODE OR DATA. 
APT” features: SUPPORT FOR 8087 AND 80186. 


—\ <n com 


~~ —n 


aby meng ai ee ee FULL LIBRARY SOURCE CODE, OVER 200 FUNCTIONS. 
B Kiosad Aaooss © i port Ganarator CROSS-FILE CHECKS OF PARAMETER PASSING. 

®@ Generic Terminal Driver © FIFO Que Routines - USES MSDOS LINK OR PLINK-86. 

® String Handling ® Source Code } CAN CALL OR BE CALLED BY PASCAL ROUTINES. 


® Manual On Disk (45 pages) 
® Tutorial On Disk (33 pages) 
® Detailed Brochure on request 
UNIX" System WV Version (availabie 1-1-85) . $995 


IN-LINE ASSEMBLY LANGUAGE. 
240 PAGE MANUAL WITH INDEX. 
NO LICENSE FEE FOR COMPILED PROGRAMS. 


MS-DOS" Version................ $495 
vege Cay? EIU ea Was Sette ee eee yen The new standard for C Compilers on MSDOS! 


*Manual Cost will be applied to APT™ purchase price within 
30 days ($10 re-stocking charge). U.S. funds only, please. 
Trademark owners: UNIX” (AT&T Bell Labs), MS-DOS” (Microsoft, Inc.), 
BDS C” (BD Software), Wizardware™ and APT™ 
(Shaw xs: American Technologies) 


Call: (800) 443-0100 Ext. 282 
Ask for API” or Send Check To: 


Shaw * American Technologies 
. W. lane” 


Only $450 


Caled tes) SO | eee ! a) 1 


For more information call (617) 641-2379 
Ws S Wizard Systems Software, Inc. 
11 Willow Ct., Arlington, MA 02174 


Visa/Mastercard accepted 


Card 
830 South Second Street - Box 648 


baer] Louisville, KY 40201, U.S.A. 
(C.O.D. and Foreign Orders - Add $5 Shipping/Handling) 
References: Bank of Louisville, Citizens Fidelity Bank, Louisville Chamber of Commerce 
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PROCESSING POWER 





In 15 minutes you can have a 
16 bit O.S. running and still 
use your CPM80 with the 
touch of a key. 


WE SUPPORT 


CPM8s0 RAM DISK 
MSDOS 

CPM8sg6 

CPM68K 

OS-9* UNIX Look-A-Like 
1.25 Mb RAM** 


6 Mhz No Wait States 
Real Time Clock 
Math Co-Processors 


AND MORE 


Compatible with any Z80 
System Running CPM 2.2 
or 3.0. 


HSC’s CO-1686 
and CO-1668 
Attached Resource 
Processors 


Prices Starting 
at $695. 


nae a ae, 


Hallock 
Systems 
Company, Inc. 


Blazing the Trail 


262 E. Main St. 
Frankfort, NY 13340 
(315) 895-7426 


* Available First Quarter 
**CO-1686 Expandable to 768Kb 
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s is included ee $49.95 
ar 21 for APPLE DOS 3.3. Menu driven, excellent 
for Beis bnigg Only $23.50 


Thunder Software POB 31501 Houston Tx 77231 713-728-5501 
Include $3.00 shipping. COD, VISA and MASTERCARD accepted 
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.when you can 
have them all. 





Why choose? 


CP/M Plus : 7 >P/M 2.2 


| Concurrent CP/M Multitasking 


With bale) geler-ty-Jiale 





Introducing Concurrent CP/M with PC Mode* 
for DISCOVERY Multiprocessor Networks 








Selecting the right blend of compatible workstations without 
hardware and software for your sacrificing the ability to run your 
computing needs can be a business in a true multi-user 
monumental challenge. Action environment. And of course, the 
Computer Enterprise, pioneer in the DISCOVERY can utilize the full 
field of microcomputer complement of CP/M-80 and CP/M-86 
multiprocessing, makes choosing easy. based software including many fine 
Scoring another innovative first, we multi-user applications. 
have brought Concurrent CP/M with If total flexibility is what your 
PC Mode to our full range of business needs, pick the system that 
DISCOVERY Supermicros. This new offers all the choices. . .DISCOVERY. DISCOVERY .. .The Ultimate Solution. 


multitasking enhancement to our 


1 
already powerful multiprocessing Take Action Today! 


DISCOVERY is a trad k of Action C ter Enterprises, Inc. 
operating system provides the Call Toll Free: 1-800-821-6596. CPIM. CP/M Plus, GPIM-86 and Concurrent GPIM are trademarks or 
re ; : : : istered trad ks of Digital R h, Inc. 
Capability to network multiple IBM PC (In California, it’s 1-818-351-5451 ) lM PC and PC-DOS are trademarks of 6M Soper 





ace Action Computer Enterprise 


The Multiprocessing Company 
Corporate Headquarters: 430 N. Halstead St., Pasadena, CA 91107 USA TWX 910-588-1201 ACTION PSD 


In Europe: ACE (Europe), B.V., Paradijslaan 42, 5611 KP Eindhoven, The Netherlands Tel. (004) 045-2658 TLX: 51767 ACE E NL 
In Asia: ACE (Asia), G/F, Lee Wah Mansion, 171-177 Hollywood Road, Hong Kong Tel. 5-441692 or 5-442310 TLX: 75332 PACIC: Hy 
Circle no. 104 on reader s service card. Serviced nationwide by Bell & Howell Company -— 18m Pc compatible mode. 





- SQUEEZE Morr Out OF Every 
_ ON-LINE MINUTE. 


Wit NewViptex™ 


/OMMU NICATIONS SOFTWARE 


Presenting the software 
package that makes your 
computer more productive 
and cost-efficient. 


CompuServe’ new Vidtex™ is compatible 
with many personal computers sold today 
(including Apple® Commodore® and 
Tandy/Radio Shack® brands). And it offers 
the following features*—and more-—to let 
you communicate more economically 
with most time-sharing services (including 
CompuServe’ Information Service). 


Auto-Logon. Lets you log on to a host 
simply and quickly by utilizing prompts 
and responses defined by you. Also allows 
quick transmission of predefined responses 
to host application programs after 

logging on. 


*Some versions of the Vidtex software do not implement all features listed. 


Function Keys. Let you consolidate 

long commands into single keystrokes. 
Definitions can be saved to and loaded 
from disk file, allowing multiple definitions 
for multiple applications. 


Error-Free Uploading and Down- 
loading. CompuServe “B’ Protocol con- 
tained in Vidtex lets you transfer from 
your computer to CompuServe and from 
CompuServe to your computer anywhere 
in the country. Also provides error-free 
downloading from CompuServe's exten- 
sive software libraries. 


Full Printer Support. Printer buffer 
automatically buffers characters until 
printer can process; automatically stops 
on-line transmission when full; and 
automatically resumes transmission 
when capacity is re-established. Also, lets 
you print contents of textual video screen 
or RAM buffer’at any time. 
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Vidtex is a trademark of CompuServe, Incorporated Apple is a trademark of Apple Computer, Inc. Commodore is a trademark of 
Commodore Business Machines. Radio Shack is a trademark of Tandy Corp. 





Capture Buffer. Saves selected 
__ parts of a session. Contents can be 
written to a disk file; displayed both on and 
off line; loaded from disk; and transmitted 
to the host. 


On-line Graphics. Integral graphics 
protocol displays stock charts, weather 
maps and more. 


If you are already a CompuServe sub- 
scriber, you can order Vidtex on line by 
using the GO ORDER command. Other- 
wise, check with your nearest computer 
dealer; or to order direct, call or write: 


CompuServe 


P.O. Box 20212, 5000 Arlington Centre Blvd. 
Columbus, Ohio 43220 


1-800-848-8199 


In Ohio, call 614-457-0802 
An H&R Block Company 


